Private Sub Command3_Click()
 
'Datenbank öffnen
Dim Db As Database
Dim Tabelle As Recordset
Dim dbFile As String
 
dbFile = App.Path + "\ADRESS.MDB"
Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
Set Tabelle = Db.OpenRecordset("Adressen")
 
 
'Nächsten Datensatz anzeigen
If Tabelle.RecordCount > 0 And Not Tabelle.EOF Then
  Tabelle.MoveNext
 
Label7.Caption = Tabelle("Anrede")
 
End If
'Datenbank schließen
Tabelle.Close
Db.Close
Set Tabelle = Nothing
Set Db = Nothing
 
End Sub