ник: час
Код Олега работает чудесно, но Caption не хочет выдавать
Public Function PrintDescriptionADOX(STR_TABLE_NAME As String)
Dim AdoxCat As ADOX.Catalog
Dim adoxTbl As ADOX.Table
Dim adoxCol As ADOX.Column
Set AdoxCat = New ADOX.Catalog
AdoxCat.ActiveConnection = GLB_CONNECTION 'Здесь твой коннекшн нужен будет
For Each adoxTbl In AdoxCat.Tables
If adoxTbl.Name = STR_TABLE_NAME Then
With adoxTbl
For Each adoxCol In .Columns
Debug.Print .Name, adoxCol.Name, adoxCol.Properties("Description")' Caption - фиг вам
Next adoxCol
End With
End If
Next adoxTbl
Set AdoxCat = Nothing
Set adoxTbl = Nothing
End Function