Visual Basic - ComboBox y Acces

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= "Nombre de la base"; DataField ("Nombre 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

Hola, te voy a mandar un trozo de programa que en lugar de utilizar combobox utiliza listbox, pero es para que te hagas una idea.
Un saludo.

Private Sub Form_Load()
Dim Msg, Estilo, Título
Dim I As Integer
Dim resp
Dim sql, sPathBase As String
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Borrar_temporal
sPathBase = "I:\Licencias de Primera Ocupación\Lic_pri_ocu.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
' Crear la conexión manualmente
' Usar "Provider=Microsoft.Jet.OLEDB.3.51;" para bases de Access 97
' Usar "Provider=Microsoft.Jet.OLEDB.4.0;" para bases de Access 2000
With cnn
.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.3.51;" & _
"Data Source=" & sPathBase & ";"
.Open
End With
' Indicarle de que tabla vamos a leer los datos
rst.Open cadena, cnn, adOpenDynamic, adLockOptimistic
On Error GoTo rsError_Handler
If rst.EOF And rst.BOF Then
resp = MsgBox("No hay licencias para listar", , "Aviso")
no_hay = True
Exit Sub
Else
I = 1
Do Until rst.EOF
lstLicPosibles.AddItem rst!Num_Archivo, I - 1
I = I + 1
rst.MoveNext
Loop
End If
lstLicPosibles.Selected(0) = True
Exit Sub

rsError_Handler:
'Si ocurre un error.
Msg = Str(Err.Number) & " " & Err.Description
Estilo = vbCritical + vbOKOnly
Título = "Error"
MsgBox Msg, Estilo, Título
Exit Sub
End Sub