如何给数据库添加密码而又不影响软件使用?

[J198728]

ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+ExtractFilePath(Application.ExeName)//使用相对路径
+'\data\db2.mdb;Mode=Share Deny None;Persist Security Info=False';//这句代码用来连接数据库,
如果我想给这个数据库加上密码(防止私自打开数据库),但同时又要不影响软件的使用应该怎么办呢?

[Frank.WU]

with ADOConnection1 do
begin
ConnectionString := 'Provider = MicroSoft.jet.OLEDB.4.0;'+
'Persist Security Info = False'+
'Data Source=D:\*.mdb;'+//数据库本地目录
'Mode = ReadWrite;'+
'Jet OLEDB:Database Password=*****;'// 加入密码
Connected := True;//Open DataBase
end;

[Oraclers]

在字串中加上：
...UserId=Admin;Password=123456;...

[J198728]

begin
if ADOConnection1.Connected then ADOConnection1.Connected:=false;
ADOConnection1.ConnectionString:=
'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='
+ExtractFilePath(Application.ExeName)
+'\data\db2.mdb;Mode= ReadWrite;Persist Security Info=False'+
'Jet OLEDB:Database Password=1987;'// 加入密码1987
ADOConnection1.Connected:=true;

小帆是这个意思吗,怎么编译不成功..