Option Explicit
'--- Datenbank-Connection + Recordset Objekt 
Dim DBConn As ADODB.Connection
Dim Rs As ADODB.Recordset
 
 
Private Sub Form_Load()
  '--- Datenbank öffnen
  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
 
  ' DataCombo mit dem Inhalt des Recordsets füllen
  ' --- Hier hakt es! ---
    Set DataCombo1.DataSource = Rs
End Sub

mfg

der Olli