关于access数据类型

lxlaner

那位大哥可以告诉我以下是什么数据类型，其实就是帮我翻译一下
Function GetConstNo(myStr As String) As Integer
    Select Case myStr
        Case "adBigInt": GetConstNo = 20
        Case "adBinary": GetConstNo = 128
        Case "adBoolean": GetConstNo = 11
        Case "adBSTR": GetConstNo = 8
        Case "adChapter": GetConstNo = 136
        Case "adChar": GetConstNo = 129
        Case "adCurrency": GetConstNo = 6
        Case "adDate": GetConstNo = 7
        Case "adDBDate": GetConstNo = 133
        Case "adDBTime": GetConstNo = 134
        Case "adDBTimeStamp": GetConstNo = 135
        Case "adDecimal": GetConstNo = 14
        Case "adDouble": GetConstNo = 5
        Case "adEmpty": GetConstNo = 0
        Case "adError": GetConstNo = 10
        Case "adFileTime": GetConstNo = 64
        Case "adGUID": GetConstNo = 72
        Case "adIDispatch": GetConstNo = 9
        Case "adInteger": GetConstNo = 3
        Case "adIUnknown": GetConstNo = 13
        Case "adLongVarBinary": GetConstNo = 205
        Case "adLongVarChar": GetConstNo = 201
        Case "adLongVarWChar": GetConstNo = 203
        Case "adNumeric": GetConstNo = 131
        Case "adPropVariant": GetConstNo = 138
        Case "adSingle": GetConstNo = 4
        Case "adSmallInt": GetConstNo = 2
        Case "adTinyInt": GetConstNo = 16
        Case "adUnsignedBigInt": GetConstNo = 21
        Case "adUnsignedInt": GetConstNo = 19
        Case "adUnsignedSmallInt": GetConstNo = 18
        Case "adUnsignedTinyInt": GetConstNo = 17
        Case "adUserDefined": GetConstNo = 132
        Case "adVarBinary": GetConstNo = 204
        Case "adVarChar": GetConstNo = 200
        Case "adVariant": GetConstNo = 12
        Case "adVarNumeric": GetConstNo = 139
        Case "adVarWChar": GetConstNo = 202
        Case "adWChar": GetConstNo = 130
        Case Else: GetConstNo = -1
    End Select
End Function
感激不尽