Задать описание (свойства) полей таблицы через ADOX

Здравствуйте!!! С Прошедшим!
Нигде не могу найти, как в коде прописать свойства таблицы (или запроса) в ADOX. Это то, что пишется в столбце Описание окна базы данных. Файл .mdb, внешняя БД.
Во всех известных мне источниках ни слова. Хэлпа нет. Метод "тыка" через Properties тоже не помог. Кто-нибудь, может, делал подобное?
Заранее огромное спасибо!

Ошибся в заголовке. :-((((
Конечно же, ОПИСАНИЕ ТАБЛИЦ И ЗАПРОСОВ, а не их полей. Свойства (описания) полей делать умею

Только адокс? ДАО не годится?

mds_world
Только адокс? ДАО не годится?

mds_world, здравствуйте. В том-то всё и дело...
(А в ДАО, так, на крайний, это делается в уже сохранённой таблице?)

Ой, не в "сохранённой" конечно же, а в уже созданной?

В дао получить описание проблемы нет

Dim tdf As TableDef, db As Database
Set db = DBEngine(0).OpenDatabase("Путь\МояБД.mdb")
On Error Resume Next
For Each tdf In db.TableDefs
    Debug.Print tdf.Properties("description")
Next

mds_world
В дао получить описание проблемы нет Dim tdf As TableDef, db As Database Set db = DBEngine(0).OpenDatabase("Путь\МояБД.mdb") On Error Resume Next For Each tdf In db.TableDefs Debug.Print tdf.Properties("description") Next

Это получить. А "присвоить" уже созданной?

mds_world в Адоксе такого метода нет, наверное.
А сами мы его никак не можем "придумать"? (Или я уже забежал вперёд паровоза...)

Это получить. А "присвоить" уже созданной?

Ну да, конечно же...
На три поста пять ошибок. Вроде и не выпивал, и отдохнул после работы. Магнитные бури... )

Да, можно

Sub NewDescription()
    Dim tdf As TableDef, db As Database, prp As Property
    Set db = DBEngine(0).OpenDatabase("Путь\МояБД.mdb")
    Set tdf = db.TableDefs("МояТаблица")
    Set prp = tdf.CreateProperty("description", dbText, "Новое описание")
    tdf.Properties.Append prp

' Просмотр описаний всех таблиц
    On Error Resume Next
    For Each tdf In db.TableDefs
        Debug.Print tdf.Properties("description")
    Next
End Sub