or
Dim MyTableName As String
Dim MyFieldName As String
MyTableName = "rrrr"
MyFieldName = "id"
Dim MyDB As New ADOX.Catalog
Dim MyTable As ADOX.Table
Dim MyField As ADOX.Column
MyDB.ActiveConnection = CurrentProject.Connection
Set MyTable = MyDB.Tables(MyTableName)
MsgBox MyTable.Columns(MyFieldName).Properties("Description")
For Each ff In MyTable.Columns
MsgBox ff.Properties("Description")
Next