Tablas en BD

[sdnsdlm]

Hola,

Con DAO lo puedes muy fácil usando la colección TableDefs, algo del palo:
For i = 0 To tuObjDatabase.TableDefs.Count - 1
MsgBox tuObjDatabase.TableDefs(i).Name
Next

Con ADO no lo sabía hacer, pero tu post me ha servido para bucear por los apuntes. Se hace mediante el objeto Catalog de ADOX. No estoy muy puesto en ADOX así que te transcribo el código que encontré en el libro en el cual busqué (se entiende sin ningún tipo de problemas ya verás):

Dim tuConexion as new ADODB.Connection
Dim tuCatalogo as new ADOX.Catalog
Dim tuTabla as ADOX.Table
tuConexion.open ....
Set tuCatalogo.ActiveConnection = tuConexion
' Bueno, parece ser que el objeto Catalog también tiene la propiedad ActiveConnection
For each tuTabla in tuCatalogo.Tables
msgbox tuTabla.Name
next

Y colorín colorado, este cuento "sacabao".
Saludos.