' Verweis auf Microsoft ActiveX Data Objects 2.x Library nicht vergessen !!!!
 
Dim DB As ADODB.Connection
Dim RS As ADODB.Recordset
 
Private Sub Form_Load()
Set DB = New ADODB.Connection
Set RS = New ADODB.Recordset
 
DB.CursorLocation = adUseClient
DB.Provider = "Microsoft.Jet.OLEDB.4.0"
DB.Open "d:\db1.mdb"
 
RS.Open "SELECT * FROM Tabelle2", DB, adOpenDynamic, adLockOptimistic
 
Do Until RS.EOF
 If Not IsNull(RS!Vorname) Then
  Combo1.AddItem RS!Vorname
 Else
  Combo1.AddItem ""
 End If
 RS.MoveNext
Loop
 
End Sub