Option Explicit
    Dim TableDef As Object
    Dim Db As Database
    Dim dbFile As String
    Dim Tabelle As Recordset
 
Private Sub Form_Load()
'Datenbank öffnen
    dbFile = App.Path + "\Aufträge.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set Tabelle = Db.OpenRecordset("Kunden")
'Datenbank öffnen
 
    Tabelle.MoveFirst
    anzeigen
End Sub
 
Private Sub anzeigen()
    lbl_kunde.Caption = Tabelle("Kunden-Nr")
    lbl_firma.Caption = Tabelle("Firma")
    lbl_zusatz.Caption = Tabelle("Zusatz")
    lbl_strasse.Caption = Tabelle("Strasse")
    lbl_plz.Caption = Tabelle("PLZ")
    lbl_ort.Caption = Tabelle("Ort")
End Sub
 
Private Sub cmd_Beenden_Click()
'Datebank schließen
    Tabelle.Close
    Db.Close
    Set Tabelle = Nothing
    Set Db = Nothing
'Datebank schließen
 
    Willkommen.Show
    Unload Me
End Sub
 
Private Sub cmd_vorheriges_Click()
    Tabelle.MovePrevious
    anzeigen
End Sub
 
Private Sub cmd_nächstes_Click()
    Tabelle.MoveNext
    anzeigen
End Sub