Visual Basic - ADO y nombre de las tablas

hola
como hago utilizando ADO para abrir una base .mdb y solamente ver el nombre de las tablas y cuantas tiene ????
alguna idea
gracias

Con ADOX, sería:

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)