Deklaration Allgemein
Dim Db As Database
Dim Tb As Recordset
Dim Tb2 As Recordset
Dim stsql As String
Dim rs As ADODB.Recordset
 
Private Sub Form_Load()
Set Db = OpenDatabase(App.Path & "\marti2.mdb")
Set Tb = Db.OpenRecordset("tbl_Artikel", dbOpenDynaset)
 
stsql = ""
stsql = "SELECT Zubehörbez FROM tbl_Zubehörgruppe INNER JOIN tbl_Artikel ON (" & _
  "tbl_Zubehörgruppe.ZuberhörID = tbl_Artikel.ZuberhörID)"
Set rs = Db.OpenRecordset(stsql)
rs.Open stsql, Conn, adOpenStatic, adLockOptimistic
End Sub