asp连接带有密码的access

asp连接带有密码的access
< %
dim   strconn,conn
Set   conn =Server.CreateObject("ADODB.Connection")  
strconn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.mappath("db1.mdb")&";Persist Security Info=False;Jet OLEDB:Database Password=123456"
conn.Open strconn
% >