Private Sub Form_Load()
'Variablen definieren für den Datenbankzugriff:
 
Dim DBConn As ADODB.Connection
Dim Rs As ADODB.Recordset
 
  ' Datenbankzugriff
  ' Datenbank heißt hier Personentest.mdb und liegt im selben Verzeichnis
  ' wie die Anwendung
  ' Die Datenbank hat eine Tabelle T_Personen
  ' In der Tabelle wird das Feld Nachnamen ausgelesen.
 
  Set DBConn = New ADODB.Connection
  With DBConn
    .CursorLocation = adUseClient
    .Provider = "Microsoft.Jet.OLEDB.3.51"
    .Properties("Data Source") = App.Path & "\Personentest.mdb"
    .Properties("Persist Security Info") = False
    .Open
  End With
 
  ' Recordset erstellen und öffnen
  Set Rs = New ADODB.Recordset
  Rs.Open "SELECT T_Personen.Nachname FROM T_Personen ORDER BY" & _
    "T_Personen.Nachname", DBConn, _
    adOpenStatic, adLockOptimistic
 
'Mit Dieters Code die Combobox füllen
With Rs
  .MoveFirst
  Do Until .EOF
    Combo1.AddItem .Fields("Nachname").Value
     .MoveNext
  Loop
End With
 
'1. Eintrag anzeigen, damit in der Combobox nicht nur Unfug steht.
Combo1.ListIndex = 0
 
'Ressourcen für den DB-Zugriff wieder freigeben.
Set Rs = Nothing
Set DBConn = Nothing
 
Exit sub

mfg

der Olli