加密ACCESS连接问题

<%
dim conn
dim connstr
db="Database/*****.mdb" 
on error resume Next

'connstr="Provider=Microsoft.Jet.OLEDB.4.0;Source=" & Server.MapPath(""&db&"")
set conn=server.createobject("ADODB.CONNECTION")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;Source=" & Server.MapPath("&db&") &;"Jet OLEDB:Database Password=123456"

if err then
err.clear
else
conn.open connstr
end if

sub CloseConn()
        conn.close
        set conn=nothing
end sub
%>

connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) & ";Jet OLEDB:Database Password=123456"