se Pagato è un campo intero non servono gli apici
codice:
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 = 1 To ListView1.ListItems.Count
  If ListView1.ListItems.Item(inc).Checked = True Then
     sql = "Update ScadenzarioPag set Pagato = 1 " & _
           "where id = " & CLng(ListView1.ListItems.Item(inc).Tag)
    db.Execute (sql)
  End If
Next inc
End Sub
credo che la parte in rosso non ti serva, visto che l'update lo esegui direttamente sulla connessione

se nell'if inserisc mItem, le righe non le scorre, devi invece inserire l'indice