codice:
Private Sub Form_Load()
c = 0
TXTDATAOGGI.Text = Date
ListView1.Checkboxes = True

Set db = OpenDatabase(App.Path & "\IlDadoBlu.mdb")
 sql = "select * from ScadenzarioPag Order by ScadFatt"
 'where ScadFatt >= # " & Format(Date, "yyyy/mm/dd") & "#  Order by ScadFatt"
    Set rs = db.OpenRecordset(sql)
 ListView1.ColumnHeaders.Add , , "Data Scadenza", ListView1.Width / 8
   ListView1.ColumnHeaders.Add , , "N°Fattura", ListView1.Width / 8, 1
   ListView1.ColumnHeaders.Add , , "Cliente", ListView1.Width / 4
   ListView1.ColumnHeaders.Add , , "N°DDT", ListView1.Width / 12, 1
   ListView1.ColumnHeaders.Add , , "Totale da Pagare", ListView1.Width / 5.33, 1
    ListView1.BorderStyle = ccFixedSingle
   ListView1.View = lvwReport

Do While rs.EOF = False 'Scorro tutta la query
   Set mItem = ListView1.ListItems.Add(, , CStr(rs("ScadFatt")))
   mItem.ListSubItems.Add , , CStr(rs("NFatt"))
   mItem.ListSubItems.Add , , CStr(rs("Cliente"))
   mItem.ListSubItems.Add , , CStr(rs("NDDT"))
   mItem.ListSubItems.Add , , CStr(rs("TotaleFatt")) & " €"
   If (rs!Pagato) = "1" Then
      mItem.Checked=True
   else
      mItem.Checked=False
   End If
   
   rs.MoveNext
Loop
rs.Close
End Sub
Quello che fai sul command1, invece è incomprensibile. Occhio a non confondere SQL con VB.
Da quallo che ho capito vuoi sovvrascrivere tutti i record con il flag ceckato, quindi cicli tutti gli elementi contenuti nel tuo listview, e se la properietà checked dell'elemento è True fai l'update per quel record...
codice:
Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "\IlDadoBlu.mdb")
If ListView1.Checkboxes = True Then :nonono: 'indica solo se sono presenti i checkbox non so sono flaggati
sql = "Update ScadenzarioPag set Pagato = ('" & 1 & "') where ListView.ListItems(ind).Checked = true" :dottò: 'SQL o VB?
db.Execute (sql)
End If
End Sub
come mai??

Grazie Sara