function getType(num)
getType=num
select case num
case "202" :
getType="文本"
case "203" :
getType="备注"
case "3" :
getType="长整型"
case "2" :
getType="整型"
case "17" :
getType="字节"
case "3" :
getType="长整型"
case "4" :
getType="单精浮点"
case "5" :
getType="双精浮点"
case "3" :
getType="长整型"
case "72" :
getType="同步复制ID"
case "131" :
getType="小数"
case "135" :
getType="日期/时间"
case "6" :
getType="货币"
case "11" :
getType="是/否"
case "205" :
getType="OLE对象"
end select
end function
for each field in rs.fields
getType(field.type) '返回类型
'name-名字 DefinedSize-大小
next