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

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

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

/admin_addlaw.asp，行618 
请各位大吓给我分析一下，拜托，以下是我的原程序：
</table>
  <p>说明：<br>
  1、请选择法律栏目进行管理。<br>
2、因为双向连接以位置定位，所以目前只能作删除操作，不能作修改。<br>
3、选择&quot;快速管理&quot;，将只选取各库的前５０００条记录，不会出现超时的现象,操作界面不变。
  <%
end sub
sub list
dim strGuide,top

strGuide="<table width='100%'><tr><td align='left'>您现在的位置：<a href='admin_addlaw.asp'>法律文书管理</a>&nbsp;&gt;&gt;&nbsp;"
if request("search")<>"" then
strfilename="admin_addlaw.asp?action=List&tablename="&tablename&"&search="&request("search")&"&select="&request("select")
else
strfilename="admin_addlaw.asp?action=List&tablename="&tablename
end if 

top=request("top")

if top=1 then
sql="select top 5000 id,bt from "
else
sql="select id,bt from "
end if  

if request("search")<>"" then
if request("select")=1 then
sql=sql&tablename&" where contains(bt,'"+trim(request("search"))+"') order by id desc"
elseif request("select")=2 then
sql=sql&tablename&" where contains(fl,'"+trim(request("search"))+"') order by id desc"
else 
sql=sql&tablename&" where contains(nr,'"+trim(request("search"))+"') order by id desc"
end if
else
sql=sql&tablename&" order by id desc"
end if 

strGuide=strGuide & "</td><td align='right'>"

if FoundErr=True then exit sub

Set rs=Server.CreateObject("Adodb.RecordSet")
'response.write sql
'response.end
rs.Open sql,conn,1,1

  if rs.eof and rs.bof then
strGuide=strGuide & "共找到 <font color=red>0</font> 条内容</td></tr></table>"
response.write strGuide
search
此处即618else
  totalPut=rs.recordcount
strGuide=strGuide & "共找到 <font color=red>" & totalPut & "</font> 条内容</td></tr></table>"
response.write strGuide
search
if currentpage<1 then
  currentpage=1
  end if
  if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if

618处是 else

response.write strGuide
search
else
  totalPut=rs.recordcount

你上面那search啥 意思？

没人帮忙给看下吗

search
查询啊,就是输入关键字查询的时候报的错