Sql 从vba中的查询中获取字段描述

我正在开发一个从查询中获取数据的函数。我希望在我的数据之前有字段名（与DB相同）和字段描述。我找到了如何获取字段名，但没有找到获取描述的方法，有人能帮我吗

这是我获取字段名的当前代码（以及我如何尝试获取描述的注释）：

---

我没有找到任何方法从记录集中获取描述。我发现了一种从数据库中的属性获取描述的方法——基本上运行另一个查询来获取描述。 如何编写查询：

---

您可以使用ADOX获取列的属性

Sub GetFieldDesc()

    Dim axCat As ADOX.Catalog
    Dim axTbl As ADOX.Table
    Dim adCon As ADODB.Connection
    Dim axProp As ADOX.Property

    'Create an ado connection
    Set adCon = New ADODB.Connection
    adCon.Open sCON

    'Point the adox catalog to that connection
    Set axCat = New ADOX.Catalog
    Set axCat.ActiveConnection = adCon

    'Pick your table
    Set axTbl = axCat.Tables("tblCurrentPriceDate")

    Debug.Print axTbl.Columns(0).Properties("Description").Value

End Sub

为DLL和安全设置对ActiveX数据对象的引用和ADO Ext.x.x的引用

Sub GetFieldDesc()

    Dim axCat As ADOX.Catalog
    Dim axTbl As ADOX.Table
    Dim adCon As ADODB.Connection
    Dim axProp As ADOX.Property

    'Create an ado connection
    Set adCon = New ADODB.Connection
    adCon.Open sCON

    'Point the adox catalog to that connection
    Set axCat = New ADOX.Catalog
    Set axCat.ActiveConnection = adCon

    'Pick your table
    Set axTbl = axCat.Tables("tblCurrentPriceDate")

    Debug.Print axTbl.Columns(0).Properties("Description").Value

End Sub