VBA 不带查询命令 直接查询表里面的属性

Public Sub 技巧()
    Dim mydata As String, mytable As String
    Dim cnn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim myField As ADODB.Field
    Dim FieldType As String, FieldLong As Integer
    mydata = ThisWorkbook.Path & "\客户管理.mdb"    '指定数据库
    mytable = "客户信息"      '指定数据表
    '建立与数据库的连接
    Set cnn = New ADODB.Connection
    With cnn
        .Provider = "microsoft.jet.oledb.4.0"
        .Open mydata
    End With
    '查询数据表
    Set rs = New ADODB.Recordset
    
    rs.Open mytable, cnn, adOpenKeyset, adLockOptimistic
    
    '查询字段数据类型和大小
    ActiveSheet.Cells.Clear
    ActiveSheet.Range("A1:C1") = Array("字段名称", "字段类型", "字段大小")
    k = 2
    For Each myField In rs.Fields
        '将字段名称、类型和大小输出到工作表
        ActiveSheet.Range("A" & k) = myField.Name
        ActiveSheet.Range("B" & k) = myField.Type
        ActiveSheet.Range("C" & k) = myField.DefinedSize
        k = k + 1
    Next
    rs.Close
    cnn.Close
    Set rs = Nothing
    Set cnn = Nothing
End Sub