codice:
Option Explicit
Dim db As Database
Dim rs, ms As Recordset
Dim sql As String
Dim ind As Integer
Dim mItem As ListItem
Dim c As Integer
Dim inc As Integer

Private Sub Form_Load()
c = 0
TXTDATAOGGI.Text = Date

Set db = OpenDatabase(App.Path & "\IlDadoBlu.mdb")
 sql = "select * from ScadenzarioPag 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
   ind = ind + 1
 
   Set mItem = ListView1.ListItems.Add(, , CStr(rs("ScadFatt"))) 'setto la variabile x inserimento col e inseriscoil 1° valore
      mItem.ListSubItems.Add , , CStr(rs("NFatt"))       'inserisco la prima subcolonna
   mItem.ListSubItems.Add , , CStr(rs("Cliente"))               'inserisco anche la seconda
      mItem.ListSubItems.Add , , CStr(rs("NDDT"))               'inserisco anche la seconda
   mItem.ListSubItems.Add , , CStr(rs("TotaleFatt")) & " €"
   ListView1.ListItems(ind).Tag = rs("ID") 'inserisco l'id della linea per poterla aprire
  
  If (rs!Pagato) = "1" Then
   mItem.Checked = True
   End If

  ' ListView1.ListItems(ind).Tag = rs("ID") 'inserisco l'id della linea per poterla aprire
   rs.MoveNext
Loop
    rs.Close
    inc = ind
End Sub
---------------------------------------------------------------------
---------------------------------------------------------------------
Private Sub Command1_Click()
Set db = OpenDatabase(App.Path & "\dado.mdb")
 sql = "select * from ScadenzarioPag Order by ScadFatt"
Set rs = db.OpenRecordset(sql)
For inc = 0 To ind
If ListView1.ListItems.Item(mItem).Checked = True Then
sql = "Update ScadenzarioPag set Pagato = ('" & 1 & "')where id = che ci metto qui?????"
    db.Execute (sql)

End If
Next inc
End Sub
---------------------------------------------------------------------

Private Sub Command2_Click()

Printer.Print PaintPicture(LOGO2.jpg, 500, 500)
Printer.EndDoc
End Sub


----------------------------------------------------------------------