Visual Basic - Ayuda con Combos please!!!

Saludotes.

Como enlazo un combo a una bd para que me despliegue determinada columna? esto es lo que tengo.
Tengo una bd de refacciones, las cuales llamaba por claves pero resulta que tengo varias refacciones iguales (mismo nombre) con la diferencia que son diferente proveedor, lo que quiero traer todas las refacciones en un combo y de ahi seleccionar la que quiero surtir.

De antemano les agradeceria su pronta y sincera ayuda.

Gracias

Mira, si lo que quieres es cargar en el combo los registros de algun campo en particular, quiza esta rutina te sea util:

Do While Not Data1.Recordset.EOF
Variable = Data1.Recordset!NombreCampo
Combo1.AddItem (Variable)
Data1.Recordset.MoveNext
Loop

Despues del Recordset y el signo de admiracion pones el nombre del campo que deseas agregar al combo.

Q tengas suerte!!!

Saludos!!!

La respuesta anterior funciona adecuadamente siempre y cuando los registros de la BD no sean nulos, de lo contrario tendras que agregar unas lineas mas, por ejemplo:
Do While Not Data1.Recordset.EOF
variable = Data1.Recordset!Marca
If variable <> "" Then
Combo1.AddItem (variable)
End If
Data1.Recordset.MoveNext
Loop

Como veras solo verifica si la variable esta vacio o no, asi te aseguras que el combo se llene con la informacion correcta.

Saludos!!!

Mil gracias por contestar mi cuestion.

Resulta que solo me trae el primer registro de la bd.

Esto fue lo que hice
Agregue un control data2
Databasename: F:\AFINSYS\CLIENTES.MDB
Recordsource: Clientes

Private Sub CBOCLIEN_Click()
Do While Not Data2.Recordset.EOF
CLIENTES = Data2.Recordset!NOMBRE
CBOCLIEN.AddItem (CLIENTES)
Data2.Recordset.MoveNext
Loop
End Sub

Donde clientes es una variable de tipo integer que declare, pero como te comento solo me trae el primer registro.

Que hice mal?

Crea un recordset, por ejemplo MiTabla

MiTabla.MoveFirst
Do While Not MiTabla.EOF
CBOCLIEN.AddItem MiTabla!nombre
MiTabla.MoveNext
Loop
CBOCLIEN.ListIndex = -1

Ya me dirás.

Saludos.

Pedro

Por lo q puedo ver en tu codigo, la rutina la estas poniendo en el mismo Combo...francamente nunca lo hecho asi.

Pero la forma como me ha funcionando es poniendo la rutina desde un CommandButton o bien cargandola en el Load del Form.

Private Sub BotonCargar_Click()
Do While Not Data2.Recordset.EOF
CLIENTES = Data2.Recordset!NOMBRE
CBOCLIEN.AddItem (CLIENTES)
Data2.Recordset.MoveNext
Loop
End Sub

o bien...

Private From1_Load()
Do While Not Data2.Recordset.EOF
CLIENTES = Data2.Recordset!NOMBRE
CBOCLIEN.AddItem (CLIENTES)
Data2.Recordset.MoveNext
Loop
End Sub


Trata de ponerla en las dos opciones q menciono arriba para ver q pasa...

Saludos!!!