Private Sub Form_Load()
 
   Dim db As Database
   Dim rs As Recordset
 
   '-Datenbank implementieren
   Set db = OpenDatabase(".\Fahrbereitschaft.mdb")
   '-Tabelle auswaehlen
   Set rs = db.OpenRecordset("T_KFZ")
 
   '-Ersten Datensatz auswählen
   rs.MoveFirst
 
   '-Wiederhole solange nicht EOF (End of File) ist. Combo Box füllen. Zum 
   ' nächsten Daten
   '-satz springen
   While Not rs.EOF
      DBComboKFZ.AddItem (rs!F_registrationnumber)
      rs.MoveNext
   Wend
 
   '-Datenbank schließen
   db.Close
 
End Sub