Dim DB As Database
Dim Rs As Recordset
 
Set DB = DBEngine.OpenDatabase("DeineMDB.mdb")
Set Rs = Db.OpenRecordset("DeineTabelle")
 
Combo1.Clear
If Rs.RecordCount > 0 Then
  While Not Rs.Eof
    Combo1.AddItem Rs.Fields("Feld_xy").Value
    Rs.MoveNext
  Wend
End If
 
Rs.Close
Db.Close