Dim SQL As String
Dim rs As New ADODB.Recordset
    SQL = "SELECT [Lieferanten&Artikel].Posart," & _
      "[Lieferanten&Artikel].LieferantenNr, " & _
    "[Lieferanten&Artikel].[Lieferanten&ArtikelNr]," & _
    "[Lieferanten&Artikel].TeileNr, Adressen.Kürzel " & _
    "FROM Adressen INNER JOIN [Lieferanten&Artikel] ON Adressen.LieferantenNr =" & _
    "[Lieferanten&Artikel].LieferantenNr " & _
    "WHERE ([Lieferanten&Artikel].TeileNr)= " & TeileNr
    If dbOpen() Then
        ' Recordset-Objekt für Lieferanten erstellen
        rs.CursorLocation = adUseClient
        rs.Open SQL, conn, adOpenDynamic, adLockOptimistic
    End If