义乌洗浴哪里有全套:ODBC 驱动程序不支持所需的属性?

conn 内容
<%
dim StrSQL,conn
StrSQL="DBQ="+server.mappath("data/pupo.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
conn.open StrSQL
%>
在一些操作方面都正常，但这里出错

<!--#include file="Conn.ASP"-->
<%
ID = Request("ID")
button_value=trim(Request.Form("alert_button"))
if button_value="是" then
RsStr="select * from SmallClass where Bid="&ID
set Rs=server.createobject("Adodb.recordset")
Rs.OPEN RsStr,conn,1,1 --->这句
if rs.eof and rs.bof then
.................

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

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

同样问题

其中一个文件一直很好,突然不能用了
...........

<select name="Sid" size="1">
<%
set rs2=server.createobject("adodb.recordset")
rs2.Source="select * from SmallClass where Bid="&Bid&" order by ID"
rs2.open rs2.Source,conn,1,1
if not rs2.eof then
do while not rs2.eof%>
<option value="<%=rs2("ID")%>"> <% =trim(rs2("Sname")) %></option>
<%
rs2.movenext
loop
else
%>
<option value="" selected>还没有小类</option>
<%
end if
rs2.close
set rs2=nothing

...........

程序运行到这里无报错,出现一个下拉框,也没有<%=rs2("sname")%>,也没有"还没有类别"的选项,底下的ASP代码和HTML都不在执行,问高手这是什么原因