Option Explicit
 
Dim db As Database
Dim tabelle As Recordset
Dim dbfile As String
Private Sub Form_Load()
dbfile = "C:\test.mdb"
Set db = Workspaces(0).OpenDatabase(dbfile, False, False)
Set tabelle = db.OpenRecordset("Adressen")
 
Do
Combo1.AddItem tabelle("Name")
tabelle.MoveNext
Loop Until tabelle.EOF
End Sub