如何在程序中打开一个带有密码的ACCESS数据库？各位大侠，不好意思，我没有分了!!多谢!!(20分)

如何在程序中打开一个带有密码的ACCESS数据库？
密码我知道地

各位大侠，不好意思，我没有分了!!多谢!!

ADOCONNECTION+ADOQUERY[]

ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;Password=xxxxxxxxxxxxxxx;Data Source=' +
'C:/Documents and Settings/xx1/My Documents/db1.mdb;Persist Secur' +
'ity Info=True'
Provider = 'Microsoft.Jet.OLEDB.4.0'

//连接数据库
strConnect:='Provider=Microsoft.Jet.OLEDB.4.0;'+
'Persist Security Info=False;'+
'Data Source='+AppPath+'Data/Rule.mdb;'+
'Mode=ReadWrite;'+
'Jet OLEDBatabase Password=123';
With AConnection do
Begin
ConnectionString := strConnect ;
Connected := True;
End;

注意：应该是[] 'Jet OLEDBatabase Password=123'

with ADOConnection1 do begin
close;
loginprompt:=false;
connectionstring:=
'Provider=Microsoft.Jet.OLEDB.4.0;'
+ 'password="";' //这是用户工作组（*.mdw）密码
+ 'User ID=Admin;' //这是用户工作组（*.mdw）用户名
+ 'Data Source=C:/JCWZ/data/jcwz.xyw;' +'Persist Security Info=True;'
+ 'Mode=Share Deny None;Extended Properties="";'
+ 'Jet OLEDB:System database="";' //这是用户工作组文件
+ 'Jet OLEDB:Registry Path="";'
+ 'Jet OLEDBatabase Password=xyw05158398050;' //这里才是数据库密码
+ 'Jet OLEDB:Engine Type=1;'
+ 'Jet OLEDBatabase Locking Mode=1;'
+ 'Jet OLEDB:Global Partial Bulk Ops=2;'
+ 'Jet OLEDB:Global Bulk Transactions=1;'
+ 'Jet OLEDB:New Database Password="";'
+ 'Jet OLEDB:Create System Database=False;'
+ 'Jet OLEDB:Encrypt Database=False;'
+ 'Jet OLEDBon''t Copy Locale on Compact=False;'
+ 'Jet OLEDB:Compact Without Replica Repair=False;'
+ 'Jet OLEDB:SFP=False';
connected:=true;
end;