cargar campo de acces en listbox en visual basic 6

[Avellaneda]

Mira, no es tan complicado.
En el menú Proyecto -> Referencias... selecciona "Microsoft ActiveX Data Objects 2.x Library"

.x es la mayor versión que tengas en tu pc.

y colocas este código, p.e. en un CommandButton:

Código:

Private Sub Command1_Click()
    Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    With rs
        .ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
            "C:\animales.mdb"
        .CursorType = adOpenStatic
        .CursorLocation = adUseClient
        .Open "Select * from Especies"
    End With
Do Until rs.EOF
    List1.AddItem rs!nombre
    rs.MoveNext
Loop
End Sub

Nota: En la propiedad ActiveConnection le tienes que poner la ruta completa donde se encuentra la base de datos. Si la BD está en el mismo directorio donde tienes la aplicación puedes ponerlo así:

.ActiveConnection = "Provider=Microsoft.jet.OLEDB.4.0;Data Source=" & _
App.Path & "\animales.mdb"

... y eso es todo!