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