cargar campo de acces en listbox en visual basic 6

[Avellaneda]

Sigue siendo igual de sencillo, sólo que ahora tienes que declarar el recordset a nivel de módulo para que esté presente en todas las rutinas del mismo, te pongo el ejemplo:

Código:

Dim rs As ADODB.Recordset   ' rs está declarado a nivel de módulo

Private Sub Command1_Click()
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

Private Sub List1_Click()
rs.MoveFirst
rs.Find "nombre = '" & List1.Text & "'"
Label1.Caption = rs!Grupo
End Sub