Option Explicit
Dim conn As Connection
Dim rs As Recordset        'für die erste Tabelle der Datenbank
Dim rsN As Recordset       'für die zweite Tabelle der Datenbank
Dim bmk As Variant           'für Bookmark, Lesezeichen setzen
 
 
Private Sub Form_Load()
Set conn = New Connection
conn.CursorLocation = adUseClient
conn.Provider = "Microsoft.Jet.Oledb.3.51"
conn.Open App.Path & "\alt_adressen.mdb"
 
Set rs = New Recordset
Set rs.ActiveConnection = conn
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.Open "SELECT * FROM adressen", , , , adCmdText
Set DataGrid2.DataSource = rs
 
Set rsN = New Recordset
Set rsN.ActiveConnection = conn
rsN.CursorType = adOpenKeyset
rsN.LockType = adLockOptimistic
rsN.Open "SELECT schluessel.SchlüsselNr, schluessel.Beschreibung From" & _
  "schluessel INNER JOIN adressen ON schluessel.KontaktNr =" & _
  "adressen.KontaktNr", , , , adCmdText
Set DataGrid1.DataSource = rsN
 
End Sub