Visual Basic - rellenar combo con un campo de una tabla

Hola a todos

A ver si alguien sabe, seguro que si. Tengo un Combo Box y lo que quiero es que este tome todos los registros de la tabla "categorías", lo hice de la única forma que conozco hasta el momento, Mediante un control ADO y luego asignándole las propiedades del Combo (Datasource= "ADODC1"; DataField ("CAMPO DE LA TABLA), El problema es que el combo sólo me toma el primer registro de la tabla, ¿Cómo hago para que me tome todos?

gracias

Utiliza el control datacombo, para trabajar con ado debes utlizar este objeto

Yo con una base de datos .mdb hago lo siguiente. Espero que te sirva

Combo1.Clear
Dim CondiciónError As Integer
Dim pongo, i

UpdateDb = True

Consultas = "BaseDatos.MDB" ' Define el nombre de la base.

Set LlenPers = Workspaces(0)
' Abre la base de datos.
Set AA = LlenPers.OpenDatabase(Consultas)
If Not CondiciónError Then

' Abre la tabla.
Set Tabla= AA.OpenRecordset("Categorias")
Tabla.Index = "nomxalfa"
Cuantos = Tabla.RecordCount
If Not CondiciónError Then

If Tabla.RecordCount <> 0 Then
Combo1.Clear
Tabla.MoveFirst
Do Until Tabla.EOF
Combo1.AddItem Tabla("categorias")
Tabla.MoveNext
Loop
End If
End If