Gets the data type of the Access table (Recordset.fields (i). Type)

function GetType(num)GetType=NumSelect  CaseNum Case "202" :       GetType="text"      Case "203" :       GetType="Notes"      Case "3" :       GetType="Long Integer type"      Case "2" :       GetType="Integral type"      Case " -" :       GetType="bytes"      Case "3" :       GetType="Long Integer type"      Case "4" :       GetType="single-precision floating point"      Case "5" :       GetType="double precision floating point"      Case "3" :       GetType="Long Integer type"      Case " the" :       GetType="Synchronous Replication ID"      Case "131" :       GetType="decimal"      Case "135" :       GetType="Date/Time"      Case "6" :       GetType="Currency"      Case " One" :       GetType="Yes/no"      Case "205" :       GetType="OLE Object"   End SelectEnd Function for  eachFieldinchRs.fieldsGetType(Field.type)'return type'name-name definedsize-sizeNext

Transferred from: http://blog.csdn.net/jyh_jack/article/details/2039609

The main purpose of the transfer is to record type

Gets the data type of the Access table (Recordset.fields (i). Type)