Dim Db As DAO.Database
Dim Rz As DAO.Recordset
 
Set Db = OpenDatabase(DBPfad)
Set Rz = Db.OpenRecordset("SELECT tbl_Zahlungsweise.Zahlungsweise " & _
                          "FROM tbl_Lieferanten INNER JOIN tbl_Zahlungsweise " _
                          & _
                          "ON tbl_Lieferanten.idZWNr = tbl_Zahlungsweise.idZWNr" & _
                          "" & _
                          "WHERE (((tbl_Lieferanten.LieferantNr)= '" & Left( _
                          frmRechnung.cmbLF, 5) & "'));")
If AnzahlDaten(Rz) > O Then
        frmRechnung.txtZahlungsweise = Rz.Fields("Zahlungsweise").Value
Else:
        frmRechnung.txtZahlungsweise = ""
End If
 
Rz.Close
Set Rz = Nothing
 
End Sub

Dim Db As New ADODB.Connection
Dim Rz As New ADODB.Recordset
 
   If AccessConn = True Then
      Db.Provider = "Microsoft.Jet.OLEDB.4.0"
      Db.ConnectionString = DBPfad
      Db.Open
   Else: Db.Provider = "SQLOLEDB.1"
         Db.ConnectionString = JDBConnect
         Db.Open
   End If
   Rz.ActiveConnection = Db
   Rz.CursorLocation = adUseClient
   Rz.Source = "SELECT tbl_Zahlungsweise.Zahlungsweise " & _
               "FROM tbl_Lieferanten INNER JOIN tbl_Zahlungsweise " & _
               "ON tbl_Lieferanten.idZWNr = tbl_Zahlungsweise.idZWNr " & _
               "WHERE (((tbl_Lieferanten.LieferantNr)= '" & left( _
               frmrechnung.cmbLF, 5) & "'));"
   Rz.Open
 
   If AnzahlDaten(Rz) > 0 Then
           frmrechnung.txtZahlungsweise = Rz.Fields("Zahlungsweise").Value
   Else:
           frmrechnung.txtZahlungsweise = ""
   End If
 
   Rz.Close
   Set Rz = Nothing
End Sub