滑膜皱襞:ASP的问题，这里如何连接带密码的ACCESS数据库?

一个关于ACCESS数据库加密后连接的问题
对于ASP，我只会拿到现成的东西来改，所以，虽然这个问题困扰我很久，但对于各位达人应该是没问题的。
我在asp连接数据库的文件是这样的：conn.asp
<%set conn=server.createobject("adodb.connection")

dim conn,mdbfile
mdbfile=server.mappath("data.mdb")
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=admin;dbq="&mdbfile
%>

————————————————
其中大家也可看到，我给access设置用户名为admin,密码也为admin

我用在删除，添加等功能上都没有问题，但我最近要完成一个查询功能，我找到的查询代码中连接数据库的部分为
dim connstr,conn,db
db="pay.mdb"
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(db)
conn.open connstr

－－－－－－－－－－－－－－－－－－－－－
请问在上面那段代码中如何修改成连接带有密码的access数据库？
楼上的，似乎没用啊，又出现出错提示：
连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。
/search/pay.asp, 第 35 行

----------------------------------------
代码如下：
31 行 connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(db)&";uid=admin;pwd=admin;"
32 行 dim rs,sql
33 行 sql="select * from pay where name='"&pname&"'"
34 行 set rs=server.createobject("adodb.recordset")
35 行 rs.open sql,conn,1,1
36 行 if rs.eof then

－－－－－－－－－－－－－－－－－－－
还有什么地方需要改的？