得到表中字段属性代码

　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　　　
　　　　　　　　　　　　　
　　　　　　　　　　　　
　　　　　　　　　　　　



　　　　　　　　　　　　set AdoX = server.createobject("adox.catalog")
set fld = server.createobject("adox.column")

AdoX.ActiveConnection = conn
set fld = AdoX.Tables(sTableName).Columns(sName)

lType = fld.Type
lSize = fld.DefinedSize