delphi6中用access库做数据库，我想给库加密码，库虽加上密码，但在delphi中打不开，显示独占方式，是什么原因？能不能在delphi中打开(50分)

请高手指教

ADOConn.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.ExeName)+'Data/data.mdb;Persist Security Info=False;Jet OLEDBatabase Password=yourpassword';

ado.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=yourdatabasename;Persist Security Info=True;Jet OLEDBatabase Password=yourpassword'

不行啊，在调试时好使，编译后运行提示密码无效，是怎么回事

还是不行的

你要有以前的离线数据的话就好了，搜索一下，你的ConnectionString有问题，
少了什么我忘了。
你的数据库文件的密码和应用程序的密码是两回事，想一样的话，就要硬性设置一致，
修改密码时，重新生成数据库文件，太麻烦！

我以前看到的，
现在在自己程序中使用，可以参考。
tstr:=
'Provider=Microsoft.Jet.OLEDB.4.0;'
+ 'password="z1239680119";' //这是用户工作组（*.mdw）密码
+ 'User ID=administrator;' //这是用户工作组（*.mdw）用户名
+ 'Data Source=db.mdb;' +'Persist Security Info=True;'
+ 'Mode=Share Deny None;Extended Properties="";'
+ 'Jet OLEDB:System database="Secured.mdw";' //这是用户工作组文件
+ 'Jet OLEDB:Registry Path="";'
+ 'Jet OLEDBatabase Password="";' //这里才是数据库密码
+ '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';
// 'Provider=Microsoft.Jet.OLEDB.4.0;Password=wcd13508046766;User ID=wcd;Data Source=db.mdb;Mode=Share Deny Read|Share Deny Write;Persist Security Info=True'
// 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=db.mdb;Persist Security Info=False';
end;
datam.DataM1.ADOConnection1.ConnectionString:=tstr;
datam.DataM1.ADOConnection1.Connected:=true;

在“数据库连接属性”中点击“所有”然后在“password”一栏中输入密码，就可以了。

多人接受答案了。