Visual Basic - DATACOMBO

HOLA AMIGOS ES LA SEGUNDA VEZ QUE INTENTO VER SI ME PUEDEN AYUDAR, NECESITO APSAR LOS VALORES DE UNA UN CAMPO ALMACENADO EN UNA TABLA A UN DATACOMBO Y NO TENGO NI IDEA DE COMO SE HACE ESTO.

ALGUIEN ME PUEDE AYUDAR????

ESTA OPERACION YA LA EH REALIZADO PERO CON EL CONTROL DATA Y ESTE ES EL CODIGO:

If Data2.Recordset.RecordCount > 0 Then
Data1.Recordset.MoveFirst
Do While Not Data2.Recordset.EOF
Combo1.AddItem Data2.Recordset.Fields("Raza")
Data2.Recordset.MoveNext
Loop
End If

PERO ESTE CODICO ES UTILIZANDO EL CONTROL DATA, AHORA ESTOY UTILIZANDO EL CONTRO ADODC Y NECESITO REALIZAR LA MISMA OPERACION PERO NO TENGO NI IDEA DE COMO HACERLO, ALGUIEN ME PUEDE AYUDAR????

Set adoPrimaryRSDIRE = New ADODB.Recordset
adoPrimaryRSDIRE.Open "SELECT direccion FROM DIRECCION", Cx, adOpenDynamic, adLockOptimistic
If adoPrimaryRSDIRE.RecordCount <> 0 Then
Do
Combo2.AddItem adoPrimaryRSDIRE.Fields("direccion")
adoPrimaryRSDIRE.MoveNext
'Combo.DisplayMember = "Nombre" & "Apellidos"
Loop While Not (adoPrimaryRSDIRE.EOF)
Combo2.Text = ""
'cierra el adoprimaryrs
adoPrimaryRSDIRE.Close
End If

espero tengas algo similar yo realizo una cadena de conexion desde un modulo la cual esta nombrada como CX y el procedimiento de llenado de la combo es lo que esta dentro del IF espero te sirva.