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