нада программно определить свойства таблицы

Привет...
У меня возникла проблема: нада программно определить свойства прилинкованой таблицы (имя БД, имя таблицы) таблицы.
Посоветовали использовать код:

Public Sub ADOXListIndexTbl(strTblName As String)
Dim adoxCat As ADOX.Catalog
Dim adoxTbl As ADOX.Table
Dim adoxProp As ADOX.Property

Set adoxCat = New ADOX.Catalog
adoxCat.ActiveConnection = CurrentProject.Connection

Set adoxTbl = adoxCat.Tables(strTblName)
For Each adoxProp In adoxTbl.Properties
    With adoxProp
        
        Debug.Print .Name, .Value
        
    End With
Next

End Sub

Я подключаю библиотеку Microsoft ActiveX Data Objects, но данный код все равно не хочет работать... Выдает ошибку:

User-defined type not defined

Помогите разобраться пожалуйста. Заранее спасибо.

надо подключать "Microsoft ADO Ext. 2.8 for DDL and Security"
или
так
Dim adoxCat As Object
Set adoxCat = CreateObject("ADOX.Catalog")

osmor

надо подключать "Microsoft ADO Ext. 2.8 for DDL and Security" или так Dim adoxCat As Object Set adoxCat = CreateObject("ADOX.Catalog")

Получилось!!! Большое спасибо!!!!