Llenar un listbox en Visual Basic.

[pabli]

Hola carlunchos,

en tu código no veo que hayas abierto la base de datos, imagino que lo habrás hecho en otro lado, tampoco abres el recordset, solo le asignas memoria con SET, te pongo una forma de recuperar las tablas:

---------------------------------------------------------------
Private Sub Form_Load()

Dim con As New ADODB.Connection
Dim rec As New ADODB.Recordset

Dim s_cad As String

s_cad = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\tubasededatos.mdb;Persist Security Info=False"

con.Open s_cad

Set rec = con.OpenSchema(adSchemaTables)

While Not rec.EOF

List1.AddItem rec!TABLE_NAME

rec.MoveNext
Wend

rec.Close
con.Close
End Sub
---------------------------------------------------------------

Un saludo
Pablo