Hola, bueno quisas este codigo te pueda servir. Todo lo q esta en MAYUSCULA debes cambiar x datos de la tabla, estoy utilizando ADO( tienes q agregar una referencia, para esto debes ir al menu proyecto--->referencias, en la lista escoges el control llamado "Microsoft DAO 3.6 object Library")
Set WS = DBEngine.Workspaces(0)
DbFile = (App.Path & "\BASE DE DATOS.MDB")
PwdString = "CONTRASEÑA"
Set dB = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
Set rs = dB.OpenRecordset("TABLA", dbOpenTable)
Max = rs.RecordCount
rs.MoveFirst
combo1.Clear
For i = 1 To Max
combo1.AddItem rs!CAMPO DE LA TABLA
rs.MoveNext
Next i
EJEMPLO: esta codigo carga los apellidos de una tabla llamada computacion.
Set WS = DBEngine.Workspaces(0)
DbFile = (App.Path & "\DatosP.mdb")
PwdString = "caja"
Set dB = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
Set rs = dB.OpenRecordset("Computacion", dbOpenTable)
Max = rs.RecordCount
rs.MoveFirst
combo1.clear
For i = 1 To Max
combo1.AddItem rs!Apellidos
rs.MoveNext
Next i
bueno espero q te sriva el codigo, saludos