Dim db As DAO.Database
Dim Tabelle As Recordset
Dim i As Integer
 
dbFile = App.Path + "\ADRESS.MDB"
Set db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = db.OpenRecordset("Adressen")
 
Tabelle.MoveFirst
    For i = 1 To ListView1.ListItems.Count
        With ListView1
             .ListItems.Item(i).text = i
             Tabelle.Edit
             Tabelle.Fields(1) = i
             Tabelle.MoveNext
             Tabelle.Update   ' Update oder CancelUpdate ohne ADDNEW ode EDIT 
             ' ????
 
        End With
    Next i