Visual Basic - combo box con base de datos access

como hago para que el contenido de un campo conectado por medio del control data a una base de datos Access me aparezca en un combo box

GRACIAS A QUIEN PUEDA COLABORARME

Con un DataCombo asígnándole las propiedades DataSource y DataField.
Con un ComboBox lo podrías hacer a través de un bucle Do Until Data1.Recordset. EOF.
Saludos

eres una persona muy amable
agradezco tu respuesta y la pondre en practica

hola, aqui esta el codigo para cargar los datos de access a un combo. Lo unico q tienes q cambiar es lo q esta en MAYUSCULA (NOMBRE DE DATOS, CONTRASEÑA, NOMBRE DE LA TABLA, NOMBRE DEL CAMPO), todos eso datos van entre comillas(" "),esto puedes poner cuando carge el formulario(Load). bueno espero q te sirva, bye, saludos

----------------------------------------------------Codigo--------------------------------------------------

Dim db As Database
Dim rs As Recordset

Set WS = DBEngine.Workspaces(0)
DbFile = (App.Path & "\NOMBRE DE BASE DE DATOS")
PwdString = "CONTRASEÑA" '....................ESTO ES OPCIONAL
Set db = DBEngine.OpenDatabase(DbFile, False, False, ";PWD=" & PwdString)
Set rs = db.OpenRecordset("NOMBRE DE TABLA", dbOpenTable)
Max = rs.RecordCount
rs.MoveFirst
Combo1.Clear
For i = 1 To Max
Combo1.AddItem rs!"NOMBRE DEL CAMPO"
next i

-----------------------------------------------Ejemplo------------------------------------------------------

Dim db As Database
Dim rs As Recordset

Set WS = DBEngine.Workspaces(0)
DbFile = (App.Path & "\NOMBRE DE BASE DE DATOS")
PwdString = "eduardo"
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
next i

Nota: este es un ejemplo de una taba llamada computacion y campo llamado Aplellidos, en el ejemplo va ah acargar los apellidos de la tabla computacion

INTENTE USAR TU CODIGO PERO EN ESTA LINEA

Set rs = db.OpenRecordset("NOMBRE DE TABLA", dbOpenTable)

ME DICE: RUN-TIME ERROR '13':

TYPE MISMATCH

ALGUNA SUGERENCIA???

DE ANTE MANO GRACIAS