创建表

Function   gettype(ByVal   index   As   Integer)   As   String  
  On   Error   Resume   Next  
  gettype   =   "The   God   know   it!"  
  Dim   types   As   New   Collection  
  types.Add   "adBigInt",   "x20"  
  types.Add   "adEmpty",   "x0"  
  types.Add   "adSmallInt",   "x2"  
  types.Add   "adInteger",   "x3"  
  types.Add   "adSingle",   "x4"  
  types.Add   "adDouble",   "x5"  
  types.Add   "adCurrency",   "x6"  
  types.Add   "adDate",   "x7"  
  types.Add   "adBSTR",   "x8"  
  types.Add   "adIDispatch",   "x9"  
  types.Add   "adError",   "x10"  
  types.Add   "adBoolean",   "x11"  
  types.Add   "adVariant",   "x12"  
  types.Add   "adIUnknown",   "x13"  
  types.Add   "adDecimal",   "x14"  
  types.Add   "adTinyInt",   "x16"  
  types.Add   "adUnsignedTinyInt",   "x17"  
  types.Add   "adUnsignedSmallInt",   "x18"  
  types.Add   "adUnsignedInt",   "x19"  
  types.Add   "adUnsignedBigInt",   "x21"  
  types.Add   "adFileTime",   "x64"  
  types.Add   "adGUID",   "x72"  
  types.Add   "adBinary",   "x128"  
  types.Add   "adChar",   "x129"  
  types.Add   "adWChar",   "x130"  
  types.Add   "adNumeric",   "x131"  
  types.Add   "adUserDefined",   "x132"  
  types.Add   "adDBDate",   "x133"  
  types.Add   "adDBTime",   "x134"  
  types.Add   "adDBTimeStamp",   "x135"  
  types.Add   "adChapter",   "x136"  
  types.Add   "adDBFileTime",   "x137"  
  types.Add   "adPropVariant",   "x138"  
  types.Add   "adVarNumeric",   "x139"  
  types.Add   "adVarChar",   "x200"  
  types.Add   "adLongVarChar",   "x201"  
  types.Add   "adVarWChar",   "x202"  
  types.Add   "adLongVarWChar",   "x203"  
  types.Add   "adVarBinary",   "x204"  
  types.Add   "adLongVarBinary",   "x205"  
   
   
  If   types("x"   &   index)   >   ""   Then   gettype   =   types("x"   &   index)  
   
  End   Function