“ODBC 驱动程序不支持所需的属性”异常，好心人进来看看

“ODBC 驱动程序不支持所需的属性”错误，好心人进来看看！
我是个初学者，我的站一个页面出现以下错误提示：

Microsoft OLE DB Provider for ODBC Drivers 错误 '80040e21'

ODBC 驱动程序不支持所需的属性。

/cncfo/admin/customer.asp，行 70


代码如下：

<% Response.Buffer=True %>
<!--#include file="../inc/admin.asp"-->
<%
function HTMLcode(fString)
if not isnull(fString) then
fString=trim(fString)
fString=replace(fString,"<","&lt;")
fString=replace(fString,">","&gt;")
fString=replace(fString,"'","'")
fString=replace(fString,vbCrLf&vbCrlf,"</p><p>")
fString=replace(fString,vbCrLf,"<br>")
fString=Replace(fString,"&#","&amp;#")
HTMLcode=replace(fString,"  ","　")
    HTMLcode = fString
end if
end function
const MaxperPage=20
dim totalput
dim currentpage
dim TotalPages
dim i,j
if request.form("currentPage")<>"" then
       currentPage=cint(request.form("currentPage"))
    else
 if request.querystring("page")<>"" then
        currentPage=cint(request.querystring("page"))
else
       currentPage=1
end if
    end if
JOBid=request("JOBid")
sql="select * from lietou where id="&JOBid&""
set rs1=server.CreateObject("adodb.recordset")
rs1.open sql,conn,1,1                             【行70】
if not rs1.eof then
if rs1("PosName")<>"" then
PosName=rs1("PosName")
else
PosName=rs1("job")
end if
CandidatesNum=rs1("CandidatesNum")
ReqDegreeID=rs1("ReqDegreeID")
area=rs1("area")
jobLocation=left(rs1("jobLocation"),4)
fabu=rs1("fabu")
ReqSex=rs1("ReqSex")
    ReqAge1=rs1("ReqAge1")
    ReqAge2=rs1("ReqAge2")
    ReqLocation=rs1("ReqLocation")
    otherRequestArea=rs1("otherRequestArea")
    ReqWorkyear=rs1("ReqWorkyear")
ExamAddress=rs1("ExamAddress")
type2=rs1("type2")
response.write type2
 reason=rs1("reason")
 adminUser=rs1("adminUser")
 adminUser1=rs1("adminUser1")
 adminUser2=rs1("adminUser2")
 check3=rs1("check3")
 jobTm=rs1("jobTm")
 check4=rs1("check4")
 personName=rs1("personName")
 completeTm=rs1("completeTm")
end if
rs1.close
set rs1=nothing
id=request("id")
sql="select * from company where id="&id&""
set rs=server.CreateObject("adodb.recordset")
 rs.open sql,conn,1,1
 if not rs.eof then
 if rs("cname")<>"" then
 cname=rs("cname")
 else
 cname=rs("vname")
 end if
 uname=rs("uname")
 cxz=rs("cxz")
 trade=rs("trade")
 area=rs("area")
 pname=rs("pname")
 phone=rs("phone")
 fax=rs("fax")
 email=rs("email")
 address=rs("address")
 zip=rs("zip")
 end if
 rs.close
 set rs=nothing
%>
请懂行的人指点一下。在此谢过！