Desde Access
============

Dim ObjetoTabla As DAO.TableDef
  For Each ObjetoTabla In CurrentDb.TableDefs
    Debug.Print ObjetoTabla.name
  Next






DESDE VISUAL BASIC
DAO
====

Sub DAOListTables()

   Dim db As DAO.Database
   Dim tbl As DAO.TableDef

   ' Open the database
   Set db = DBEngine.OpenDatabase("C:\Ruta\tubase.mdb")

   ' Loop through the tables in the database and print their name
   For Each tbl In db.TableDefs
      Debug.Print tbl.Name
   Next

End Sub

ADOX
=====

Sub ADOListTables()

   Dim cat As New ADOX.Catalog
   Dim tbl As ADOX.Table

   ' Open the catalog
   cat.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
      "Data Source=.\NorthWind.mdb;"

   ' Loop through the tables in the database and print their name
   For Each tbl In cat.Tables
      If tbl.Type <> "VIEW" Then Debug.Print tbl.Name
   Next

End Sub

With DAO the TableDef object represents a table in the database and the
TableDefs collection contains a TableDef object for each table in the
database. This is similar to ADO, in which the Table object represents a
table and the Tables collection contains all the tables.

However, unlike DAO, the ADO Tables collection may contain Table objects
that aren't actual tables in your Microsoft Jet database. For example,
row-returning, non-parameterized Microsoft Jet queries (considered Views in
ADO) are also included in the Tables collection. To determine whether the
Table object represents a table in the database, use the Type property. The
following table lists the possible values for the Type property when using
ADO with the Microsoft Jet Provider.

Type                                                   Description

ACCESS TABLE    The Table is a Microsoft Access system table.
LINK                       The Table is a linked table from a non-ODBC data
source.
PASS-THROUGH   The Table is a linked table from an ODBC data source.
SYSTEM TABLE    The Table is a Microsoft Jet system table.
TABLE                    The Table is a table.
VIEW                     The Table is a row-returning, non-parameterized
query.