Que tal Sres, tengo este codigo:
Private Sub cmdConectar_Click()
CommonDialog1.CancelError = True
On Error GoTo terminar
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "Base de datos Microsoft Access" & _
"(*.mdb)|*.mdb|"
CommonDialog1.ShowOpen
pathBase = CommonDialog1.FileName
abrir
Label1.Caption = pathBase
Set rst = New ADODB.Recordset
Do While Not rst.EOF
List1.AddItem rst.Fields(0).Name
rst.MoveNext
Loop
rst.Close
terminar:
End Sub
la funcion abrir setea y abre un aconexion con la base access. La idea es insertar un codigo que introduzca en List1 los nombres de las tablas de la base conexionada.
Lo que puse para el List1 no funciona, me falta codificar algo mas?.
Saludos.
