Para que este ejemplo te funcione, debes agregar la referencia, "Microsoft Active Data Object 2.0", en un formulario agrega un combo y coloca este codigo, debes tener una base de datos en acces llamada BD.mdb y en esta una tabla llamada datos en donde esta contiene un campo llamado Codigo, agrega manualmente los codigo que quieras, guardas y pruebas
Recuerda que la base de datos debe estar en la misma carpeta donde esta tu proyecto o ejecutable:
Dim Db As New ADODB.Connection, Rs As New ADODB.Recordset
Private Sub Form_Load()
Db.CursorLocation = adUseClient
Db.Open "provider=microsoft.jet.oledb.4.0;data source=" & App.Path & "\BD.mdb"
Set Rs = New Recordset
Rs.ActiveConnection = Db
Rs.Open "select * from datos"
With Combo1
Do While Not Rs.EOF
.AddItem Rs!Codigo
Rs.MoveNext
Loop
End With
Rs.Close
end sub
