Listview Date Format

i want to show date in my list view, but it keep saying "run time error 380 - invalid property". can anyone help me ? my database i used was date format too..

here is the code :

Private Sub Form_Load()
    Call ListView_FullRowSelect(lv)
    lv.ListItems.clear
    opCode.Value = True
       
    If cn.State = 1 Then cn.Close
    cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\dbscript.mdb;Persist Security Info=False"
    cn.Open
   
    Dim strpass As String
    strpass = "select * from inInvent"
   
    With rec
        .Open strpass, cn, 3, 3
        Do While Not .EOF
            lv.ListItems.Add , , !KodeItem, 1, 1
            lv.ListItems(lv.ListItems.Count).SubItems(1) = !NoItem
            lv.ListItems(lv.ListItems.Count).SubItems(2) = !NamaBarang
            lv.ListItems(lv.ListItems.Count).SubItems(3) = !KodeKategori
            lv.ListItems(lv.ListItems.Count).SubItems(4) = Format(!HM, "Rp ###,###,##0.00")
            lv.ListItems(lv.ListItems.Count).SubItems(5) = !KodeSatuan
            lv.ListItems(lv.ListItems.Count).SubItems(6) = Format(!TanggalInput, "dd/MM/yyyy/") '<<==== this is where the ERROR code
            .MoveNext
        Loop
            .Close
    End With
    cn.Close
    cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data\dbscript.mdb;Persist Security Info=False"
    lv.Sorted = True
    cn2.Close
End Sub