Set rsAussteller = New ADODB.Recordset
With rsAussteller
          .ActiveConnection = Cn
          .Source = "tblAbrechnungsdaten"
          .LockType = adLockOptimistic
          .CursorType = adOpenDynamic
          .Open
End With
rsAussteller.MoveFirst
With cmbAussteller
          Do While Not rsAussteller.EOF
               .AddItem CheckIfFieldIsNull(rsAussteller.Fields("Aussteller"))
               rsAussteller.MoveNext
          Loop
End With
cmbAussteller.ListIndex = 0
mySQL = "Select * from tblAbrechnungsdaten where Aussteller ='" & _
  cmbAussteller.Text & "'"
Set rsDiffVal = New ADODB.Recordset
With rsDiffVal
          .ActiveConnection = Cn
          .Source = mySQL
          .LockType = adLockOptimistic
          .CursorType = adOpenDynamic
          .Open
End With
txtBezeichnung.Text = CheckIfFieldIsNull(rsDiffVal.Fields("Bezeichnung"))
txtBeleg.Text = CheckIfFieldIsNull(rsDiffVal.Fields("Beleg"))

Uli

Wissen ist Macht; nichts wissen macht auch nichts!