Private Sub Command4_Click()
 Dim db As Database
 Dim tabelle1 As Recordset
 Dim dbFile As String
 Dim i As Integer
 
 
 dbFile = App.Path & "\daten\datenbanken\DBkunden.mdb"
 Set db = Workspaces(0).OpenDatabase(dbFile, False, False)
 Set tabelle1 = db.OpenRecordset("Kunden")
 
 usw.
 usw.
 
 tabelle1.Update
 tabelle1.Close
 db.Close
 Set tabelle1 = Nothing
 
End Sub