utilise l'objet Catalogue
(dim ObjCat As ADOX.Catalog
Set ObjCat = CreateObject("ADOX.Catalog"
Set ObjCat.ActiveConnection = ObjConnect)
référencé sur une base de donnée il te donne tout plein d'info :
- le nb de table
- leurs noms
- les index
etc ...