bueno en esta caso se usa un DataCombo con el nombre CboClientes
Código:
Dim db As Connection
Dim adoPrimaryRS As Recordset
Set db = New Connection
Set adoPrimaryRS = New Recordset
db.CursorLocation = adUseClient
db.Open "Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;"
adoPrimaryRS.Open "SELECT id_cliente,nombre FROM clientes", db, adOpenStatic, adLockOptimistic
Set Me.CboClientes.RowSource = adoPrimaryRS
CboClientes.ListField = "nombre"
CboClientes.BoundColumn = "id_cliente"
espero te sirva el codigo
nos vemos...