Visual Basic - saber nombre y numero de tablas con ADO en tiempo

me estoy conectando a una base de datos pormedio de ADO y necesito saber el nombre y numero de tablas que posee la base de datos sin necesidad de abrirla, en tiempo de ejecucion, ya que cosntantemente se creean tablas con estrutura igual pero con datos diferentes. gracias por la ayuda

Prueba esto a ver si es lo que buscas, y cualquier cosa nada mas le agregas un contador y listo:

Dim DB As Database
Dim TDF As TableDef

Set DB = OpenDatabase(app.path & "\base.mdb")
For Each TDF In DB.TableDefs
If TDF.Attributes = 0 Then
msgbox TDF.Name
End If
Next TDF
db.close