ayudar con visual basic 6.0

[Daviel]

Ahi va!, a ver si te sirve compañero.
Dim BDCn As New ADODB.Connection
Dim BDRd As New ADODB.Recordset
Dim Ruta As String
Dim Tabla As String
Ruta = App.Path & "\" & "db1.mdb"
BDCn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Ruta & ";Persist Security Info=False"
Tabla = "tabla"
BDRd.Open Tabla, BDCn, adOpenStatic, adLockReadOnly
With ListBox
Do While Not BDRd.EOF
.AddItem (BDRd.Fields(1).Value)
BDRd.MoveNext
Loop
End With
BDRd.Close
BDCn.Close