'Datenbank öffnen / Tabelle öffnen
Private Sub Form_Load()
 
dbfile = App.Path + "\Adress.mdb"
Set db = Workspaces(0).OpenDatabase(dbfile)
Set Tabelle = db.OpenRecordset("Adressen")
 
End Sub
 
'Nächsten Datensatz aufrufen und in Textboxen ausgeben
Private Sub Command2_Click()
If Tabelle.RecordCount > 0 And Not Tabelle.BOF Then
Tabelle.Bookmark = Tabelle.MoveNext
For i = 1 To 7
    txt(i - 1).Text = Tabelle(i)
Next i
End If
End Sub
 
'Datenbank schließen
 
Private Sub Form_Unload(Cancel As Integer)
Tabelle.Close
db.Close
Set Tabelle = Nothing
Set db = Nothing
End Sub

Press any key to continue or any other key to quit...