codice:
Set db = OpenDatabase(App.Path & "\Pizza.mdb")
    sql = "select * from TotaleOrdini"
Set rs = db.OpenRecordset(sql)

   ListView1.ColumnHeaders.Add , , "Nordine", ListView1.Width / 8
   ListView1.ColumnHeaders.Add , , "Ora Presa", ListView1.Width / 7.5
   ListView1.ColumnHeaders.Add , , "Cliente", ListView1.Width / 6
   ListView1.ColumnHeaders.Add , , "Indirizzo", ListView1.Width / 3
   ListView1.ColumnHeaders.Add , , "Telefono", ListView1.Width / 6.5
   ListView1.BorderStyle = ccFixedSingle
   ListView1.View = lvwReport

Do While rs.EOF = False 
   ind = ind + 1
If txtdata.Text = (rs!data) Then
  Set mItem = ListView1.ListItems.Add(, , CStr(rs("NOrdine")))      
mItem.ListSubItems.Add , , CStr(rs("OraPresa"))       'inserisco la prima subcolonna
   mItem.ListSubItems.Add , , CStr(rs("Nome"))               'inserisco anche la seconda
        mItem.ListSubItems.Add , , CStr(rs("Indirizzo"))               'inserisco anche la seconda
   mItem.ListSubItems.Add , , CStr(rs("Telefono"))
ListView1.ListItems(ind).Tag = rs("Nordine")
   End If
   rs.MoveNext
Loop
rs.close
ora mi si blocca sul db.Execute(sql) dell'istruzione di cancellazione.

Il db ha come campi :
Id
NOrdine
Nome
etc...

errore 3464: Tipo dati non corrispondente nell'espressione del criterio.


ora vedo che mi legge il dato correttamente però!!