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

[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