如何枚举系统所有的数据格式(在线等候)

Private Function TransferType(ByVal dbtype As DatabaseTypeEnum) As VbVarType
    Select Case dbtype
    Case dbBigInt    'Big Integer 型 (Big Integer)
        TransferType = vbInteger
    Case dbBinary '(Binary)
        TransferType = vbVariant
    Case dbBoolean '(Boolean)
        TransferType = vbBoolean
    Case dbByte  ' (Byte)
        TransferType = vbByte
    Case dbChar  'CHAR 型 (Char)
        TransferType = vbString
    Case dbCurrency '(Currency)
        TransferType = vbCurrency
    Case dbDate ' (Date / Time)
        TransferType = vbDate
    Case dbDecimal  '(Decimal)
        TransferType = vbDecimal
    Case dbDouble   '(Double)
        TransferType = vbDouble
    Case dbFloat '(Float)
        TransferType = vbDouble
    Case dbGUID  'GUID 型 (GUID)
        TransferType = vbString
    Case dbInteger '(Integer)
        TransferType = vbInteger
    Case dbLong  ' (Long)
        TransferType = vbLong
    Case dbLongBinary ' (LongBinary) - (OLE Object)
        TransferType = vbVariant
    Case dbMemo '(Memo)
        TransferType = vbVariant
    Case dbNumeric ' Numeric 型 (Numeric)
        TransferType = vbDouble
    Case dbSingle  ' (Single)
        TransferType = vbSingle
    Case dbText '(Text)
        TransferType = vbString
    Case dbTime '(Time)
        TransferType = vbDate
    Case dbTimeStamp '(TimeStamp)
        TransferType = vbVariant
    Case dbVarBinary '(VarBinary)
        TransferType = vbVariant
    End Select
End Function
这个函数用来把数据库中的数据类型转成VB的数据类型.