判断字段类型的函数 （备忘）

Public Function sFldType(iType As Integer)
    Select Case iType
        Case 20
            sFldType = "BigInt"
        Case 128
            sFldType = "Binary"
        Case 11
            sFldType = "Boolean"
        Case 8
            sFldType = "BSTR"
        Case 136
            sFldType = "Chapter"
        Case 129
            sFldType = "Char"
        Case 6
            sFldType = "Currency"
        Case 7
            sFldType = "Date"
        Case 133
            sFldType = "DBDate"
        Case 134
            sFldType = "DBTime"
        Case 135
            sFldType = "DBTimeStamp"
        Case 14
            sFldType = "Decimal"
        Case 5
            sFldType = "Double"
        Case 0
            sFldType = "Empty"
        Case 10
            sFldType = "Error"
        Case 64
            sFldType = "FileTime"
        Case 72
            sFldType = "GUID"
        Case 9
            sFldType = "IDispatch"
        Case 3
            sFldType = "Integer"
        Case 13
            sFldType = "IUnknown"
        Case 205
            sFldType = "LongVarBinary"
        Case 201
            sFldType = "LongVarChar"
        Case 203
            sFldType = "LongVarWChar"
        Case 131
            sFldType = "Numeric"
        Case 138
            sFldType = "PropVariant"
        Case 4
            sFldType = "Single"
        Case 2
            sFldType = "SmallInt"
        Case 16
            sFldType = "TinyInt"
        Case 21
            sFldType = "UnsignedBigInt"
        Case 19
            sFldType = "UnsignedInt"
        Case 18
            sFldType = "UnsignedSmallInt"
        Case 17
            sFldType = "UnsignedTinyInt"
        Case 132
            sFldType = "UserDefined"
        Case 204
            sFldType = "VarBinary"
        Case 200
            sFldType = "VarChar"
        Case 12
            sFldType = "Variant"
        Case 139
            sFldType = "VarNumeric"
        Case 202
            sFldType = "VarWChar"
        Case 130
            sFldType = "WChar"
        Case Else
            sFldType = "unKnown"
    End Select

End Function