Dim DB As Connection
Dim RS As Recordset
 
 
  Set DB = New Connection
    DB.CursorLocation = adUseClient
    DB.Provider = "Microsoft.Jet.OLEDB.4.0"
    DB.Open "D:\Medien\Schule\WIP\Projekt\Firmendatenbank.mdb"
 
  'Kunden-Nummer
  Set RS = New Recordset
    RS.Open "SELECT * FROM Kunden", DB, adOpenDynamic, adLockOptimistic
 
  Do Until RS.EOF
    ListKNR.AddItem RS!KundenNr
    RS.MoveNext
  Loop