如何用EXCEL读取ACCESS表中的字段属性（含字段描述）

chinahywm

ACCESS 表 di 的设计如下
字段名   数据类型    说明
ID            自动编号    排序号
title          文本        文章标题  
。
。
。

请教各位老师：上面红字的如何读出？

我的代码如下：
Public Sub 实例2_19()
    Dim mydata As String    '定义数据库字符串变量
    Dim mytable As String    '定义数据表字符串变量
    Dim myField As String    '定义字段字符串变量
    Dim dbs As Object    '定义数据库对象变量
    Dim myAccess As Object    '定义Object 类型的对象变量
    Dim i As Integer, k As Integer
    mydata = ThisWorkbook.Path & "\db.mdb"    '指定数据库
    mytable = "article"       '指定数据表
    '准备工作表
    ActiveSheet.Cells.Clear
    ActiveSheet.Range("A1:d1") = Array("字段名称", "字段类型", "字段大小", "说明")
    '创建并引用Access数据库对象
    Set myAccess = CreateObject(mydata)
    '设置当前打开的数据库变量
    Set dbs = myAccess.CurrentDb
    '开始获取字段信息
    k = 2
    With dbs.TableDefs(mytable)
        For i = 0 To .Fields.Count - 1
            '将字段名称、类型和大小输出到工作表
            Range("A" & k) = .Fields(i).Name     '获取字段名称
            Range("B" & k) = IntegerToVBAConstant(.Fields(i).Type)     '获取字段类型
            Range("C" & k) = .Fields(i).Size     '获取字段长度
'            Range("D" & k) = .Fields(i).                    '获取字段描述 这里的下划线处应该填什么？
            k = k + 1
        Next i
    End With
    Set dbs = Nothing
    Set myAccess = Nothing
End Sub