Visual Basic - como cargo en un combo registros de uba base de da

quiero que un combo cargue los registros de una base de datos por
ejemplo los IDClientes de la tabla clientes, pongo la propiedad del combo ---- datafield = IDclientes pero solo muestra el primero en este caso el ; 1 gracias por la ayuda y a todos que dan soluciones a problemas .
un saludo.

hola...
te envio este codigo...

Sub pubLlenaLista(pLista As Control, pSP As String, Optional pIncluyeClave As Boolean, Optional pNoInicializar As Boolean)
' llena un listbox o un combobox
' en base a una consulta
' Ing. Isidro Almaguer De la Rosa 25/Abr/2000
' Modelo ADO 2.5
Dim bAgregarOK As Boolean

On Error GoTo fin

If IsMissing(pIncluyeClave) Then
pIncluyeClave = False
End If

If IsMissing(pNoInicializar) Then
pNoInicializar = False
End If

If Not pNoInicializar Then
' limpiar lista
pLista.Clear
End If

cnn.Errors.Clear
cnn.Errors.Refresh

Set rst = cnn.Execute(pSP)
'Set rst = db.OpenRecordset(pSP)
If cnn.Errors.Count = 0 Then
While Not rst.EOF 'And Err = 0 And cnn.Errors.Count = 0
If pNoInicializar Then
' se pidió no inicializar la lista, verificar que no exista elemento
bAgregarOK = Not pubExisteElemento(pLista, rst.Fields(0))
Else
bAgregarOK = True
End If
If bAgregarOK Then
If pIncluyeClave Then
pLista.AddItem Format(Left(Trim(rst.Fields(1)) & Space(5), 37), "!" & String(37, "@")) & " " & rst.Fields(0)
Else
pLista.AddItem rst.Fields(1)
End If
pLista.ItemData(pLista.NewIndex) = rst.Fields(0)

Si manejás un ComboBox DAO , la carga tiene que ser por código, tan sencillamente como el código que sigue:

Suponiendo que uses un DataControl "Data1"

Private Sub Load_Form( ) ' cuando se carga el form
Data1.Recordset.MoveFirst 'situo el Recordset al principio

Do While Not Data1.Recordset.EOF ' recorro toda la Base

ComboBox1.Add Data1.Recordset ! Id 'cargo datos
Data1.Recordset.MoveNext ' Adelanto el registro al siguiente

loop
Data1.Refresh 'Refreco el DataControl
ComboBox.Text =Data1.Recordset ! Id 'Asigno el primer registro al
' ComboBox