versuch das mal:
Dim DATABASE_DeinName As DataBase
Dim RECORDSET_DeinName As Recordset
Dim SQL_DeinName As String
Set DATABASE_DeinName = OpenDatabase(App.Path & "\DATENBANKNAME.mdb", False, False)
SQL_DeinName = "SELECT * FROM TABELLExyz;"
Set RECORDSET_DeinName = DATABASE_DeinName.OpenRecordset(SQL_DeinName)
COMBOBOX.Clear
RECORDSET_DeinName.MoveFirst
Do While Not RECORDSET_DeinName.EOF
COMBOBOX.AddItem RECORDSET_DeinName!WasDuWillst
RECORDSET_DeinName.MoveNext
Loop
COMBOBOX.Text = "[- bitte auswählen -]"
RECORDSET_DeinName.Close
DATABASE_DeinName.Close