cargar en un combobox desde una base de datos (Access)

[gerardo_goh]

Hola buenas noches:
Tengo un problema quiero cargar una columna de una tabla en un combobox, la base de datos esta hecha en access, el nombre del combobox es cboCategoria, el nombre del archivo es bdPrueba, el nombre de la tabla es tblCategoria, me puedes ayudar con este problema muchas gracias, Saludos

[Avellaneda]

Hola, una forma:

Código Visual Basic:

Private Sub Form_Load()
Dim BD As ADODB.Connection
Dim rs As ADODB.Recordset
Set BD = New ADODB.Connection
Set rs = New ADODB.Recordset
' suponemos que la BD está en el mismo directorio que la aplicación
BD.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source =" & App.Path & "\bdPrueba.mdb"
rs.CursorLocation = adUseClient
rs.Open "SELECT * FROM tblCategoria", BD, adOpenStatic, adLockOptimistic
With rs
    Do Until .EOF
        ' suponemos que la columna a cargar es la primera
        cboCategoria.AddItem .Fields(0)
        .MoveNext
    Loop
End With
End Sub
 

Saludos

[gerardo_goh]

Muchisimas gracias me sirvio muchisimo, eres muy bueno, Saludos!!!