DAO的示例：
Sub TypeX2()

     Dim dbsNorthwind As Database
     Dim fldLoop As Field

     Set dbsNorthwind = OpenDatabase("Northwind.mdb")

     Debug.Print "Fields in Employees TableDef:"
     Debug.Print "  Type - Name"

     ' Enumerate Fields collection of Employees table.
     For Each fldLoop In _
         dbsNorthwind.TableDefs!Employees.Fields
         Debug.Print "    " & FieldType(fldLoop.Type) & _
             " - " & fldLoop.Name
     Next fldLoop

     dbsNorthwind.Close

 End Sub


 Function FieldType(intType As Integer) As String

     Select Case intType
         Case dbBoolean
             FieldType = "dbBoolean"
         Case dbByte
             FieldType = "dbByte"
         Case dbInteger
             FieldType = "dbInteger"
         Case dbLong
             FieldType = "dbLong"
         Case dbCurrency
             FieldType = "dbCurrency"
         Case dbSingle
             FieldType = "dbSingle"
         Case dbDouble
             FieldType = "dbDouble"
         Case dbDate
             FieldType = "dbDate"
         Case dbText
             FieldType = "dbText"
         Case dbLongBinary
             FieldType = "dbLongBinary"
         Case dbMemo
             FieldType = "dbMemo"
         Case dbGUID
             FieldType = "dbGUID"
     End Select

 End Function