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
set fld = server.createobject("adox.column")
AdoX.ActiveConnection = conn
set fld = AdoX.Tables(sTableName).Columns(sName)
lType = fld.Type
lSize = fld.DefinedSize