'Datenbank allgemein(wird bei jedem Punkt benötigt!)
Dim Db As Database
Dim dbFile As String
'Datenbank öffnen
Dim Tabelle As Recordset
'Dateien anzeigen
Private Type xRs
 Adress As Recordset
End Type
Private Rs As xRs
 
Private Sub Form_Load()
 
    'Datenbank öffnen
    dbFile = App.Path + "\ADRESS.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False)
    Set Tabelle = Db.OpenRecordset("Adressen")
 
End Sub
 
Private Sub Command1_Click()
    SQL = "select Name from Adressen"
    Set Rs = Db.OpenRecordset(SQL)
 
    Set Text1.DataSource = Rs.Adress           'funktioniert nicht???
    Set Label1.DataSource = Rs.Adress    
End Sub