sql types to vb types

"SqlType","VbType"
"bigint","DataTypeEnum.adBigInt"
"binary","DataTypeEnum.adBinary"
"bit","DataTypeEnum.adBoolean"
"char","DataTypeEnum.adChar"
"datetime","DataTypeEnum.adDBTimeStamp"
"decimal","DataTypeEnum.adNumeric"
"float","DataTypeEnum.adDouble"
"image","DataTypeEnum.adLongVarBinary"
"int","DataTypeEnum.adInteger"
"money","DataTypeEnum.adCurrency"
"nchar","DataTypeEnum.adWChar"
"ntext","DataTypeEnum.adLongVarWChar"
"numeric","DataTypeEnum.adNumeric"
"nvarchar","DataTypeEnum.adVarWChar"
"real","DataTypeEnum.adSingle"
"smalldatetime","DataTypeEnum.adDBTimeStamp"
"smallint","DataTypeEnum.adUnsignedTinyInt"
"smallmoney","DataTypeEnum.adCurrency"
"sql_variant",""
"sysname",""
"text","DataTypeEnum.adLongVarChar"
"timestamp","DataTypeEnum.adBinary"
"tinyint","DataTypeEnum.adUnsignedTinyInt"
"uniqueidentifier","DataTypeEnum.adGUID"
"varbinary","DataTypeEnum.adVarBinary"
"varchar","DataTypeEnum.adVarChar"