从.NET修改Access表的Description属性

我正在尝试从VB.Net项目中修改MS Access数据库的字段和表属性

到目前为止，我已经成功地完成了以下工作： 1-检索模式 2-检索表描述 3-修改表中的字段说明

我仍然没有找到修改数据库中表的描述的方法。我正在使用ADODB和ADOX

以下是我如何修改字段描述：

    Dim MyDB As New ADOX.Catalog
    Dim MyTable As ADOX.Table
    Dim DB As New ADODB.Connection

    DB.Open("Provider='Microsoft.ACE.OLEDB.12.0';Data Source= 'People.accdb';")
    MyDB.ActiveConnection = DB

    MyTable = MyDB.Tables("People")
    MyTable.Columns("MyID").Properties("Description").Value = "Changed"

---

ADOX无法使用Access表的

Description

属性。您需要使用ACE DAO，如下所示：

”所需的COM参考：
'Microsoft Office 14.0 Access数据库引擎对象库
' 
'导入Microsoft.Office.Interop.Access.Dao
'
将dbe变暗为新的DBEngine
Dim db As Database=dbe.OpenDatabase（“C:\Users\Public\myDatabase.accdb”）
尺寸待定为TableDef=db.TableDefs（“捐赠者”）
Dim newDescription As String=“这是新表的说明。”
尝试
待定。属性（“说明”）。值=新说明
Catch ex作为Runtime.InteropServices.COMException
如果ex.ErrorCode=-2146825018，则
'未找到属性。
tbd.Properties.Append（tbd.CreateProperty（“Description”，DataTypeEnum.dbText，newDescription））
其他的
扔
如果结束
结束尝试

工作正常。谢谢