Dim objCatalog As Catalog, objTable As Table
Set objCatalog = New Catalog
Set objCatalog.ActiveConnection = TuObjetoConnectionADO
For Each objTable In objCatalog.Tables
Debug.Print objTable.Name
Next
Con OpenSchema de ADO:
Set objRecordset = TuObjetoConnection.OpenSchema(adSchemaTables)
en internet hay un archivo que se llama auto97 (creo que tiene extensión ZIP), tiene una serie de ayudas para manejar objetos desde visual basic,
si no lo encuentras avísame para mandartelo.
suerte