Hübsch machen fetzt.
File = "C:\Abschluss-Projekt\Rechnung\KontenD2.mdb"
col = "FernmKtoNr"
col2 = "BuchungsNr"
SQL = "SELECT " & col & ", " & col2 & " FROM FernmktoNr"
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & File, "", "", -1
rs.Open SQL, cn, adOpenStatic, adLockPessimistic, -1
Dim item as object
Do While Not rs.EOF
[INDENT]item = rs.Fields(col)
if item isnot Nothing then cmbsuchFernmeld.AddItem (item)
item = rs2.Fields(col2)
if item isnot Nothing then cmbSuchBuchNr.AddItem(item)[/INDENT]
rs.MoveNext
Loop
:floet: