Visual Basic - Optener nombres de las Tablas (ADO)

Eje. en la DB tengo 8 Tablas, como puedo hacer para extrer los nombres de las Tablas con código VB y ADO.... (en DAO se como hacerlo, pero no me sirve).
Gracias...

Mi pana podrías decirme como obtener los nombres de las tablas con DAO. Los siento no se como hacerlo con ADO...
Gracias...

Hola

esto es lo que necesitas

primero que nada
debes hacer una Referencia a: "Microsoft ADO Ext. For DLL and Security"

Luego ecribe esto

'-------------------------------

Private Sub Command1_Click()

Dim Cat As ADOX.Catalog
Dim i As Integer

Set Cat = New ADOX.Catalog

' Abrir el Catálogo
'si usas Access 97, cambia el 4.0 por 3.51

Cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=TuBase.mdb"

'Guardare el nombre de las tablas en List1 y las consultas en un List2

List1.Clear
List2.Clear

For i = 0 To Cat.Tables.Count - 1
If Left(Cat.Tables.Item(i).Name, 4) <> "MSys" Then
If Cat.Tables.Item(i).Type = "TABLE" Then ' si son tablas en List1
List1.AddItem Cat.Tables.Item(i).Name

'-- Esto es adicional si quieres
'Cat.Tables.Item(i).DateModified <----- fecha modificacion
'Cat.Tables.Item(i).DateCreated <----- fecha creacion
'Cat.Tables.Item(i).Type <------ tipo de Dato View , Table, etc.
ElseIf Cat.Tables.Item(i).Type = "VIEW" Then ' si es consulta en List2
List2.AddItem Cat.Tables.Item(i).Name
End If
End If
Next i

End Sub
'--------------------------------

Espero que te Sirva
Suerte.

Ariel...

Gracias pero no se a que te refieres cuando dices que tengo que hacer una Referencia a: "Microsoft ADO Ext. For DLL and Security", el resto del código si lo entiendo pero eso no lo se, muchas gracias por la respuesta
Por favor explicame a que te refieres con eso...
muchas gracias por adelantado................

Tenes que ir al menu Herramientas/Referencias y seleccionar esa referencia o la de DAO o ADO..... es para programar sin los objetos...