>>144
これでどうや。
ADOXはMicrosoft ADO Ext. ? for DDL and Securityを参照設定やで。

Dim ax As New ADOX.Catalog
Dim tb As ADOX.Table

ax.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source= データベース名.mdb;"

For Each tb In ax.Tables
Debug.Print tb.Name
Next