当初找了好久才找到的ADO的所有Type
Public Function SQLDataTypeName(dtIndex)
Select Case dtIndex
Case adEmpty: SQLDataTypeName = "Empty"
Case adTinyInt: SQLDataTypeName = "TinyInt"
Case adSmallInt: SQLDataTypeName = "SmallInt"
Case adInteger: SQLDataTypeName = "Integer"
Case adBigInt: SQLDataTypeName = "BigInt"
Case adUnsi