得到表中字段屬性代碼

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