请问为什么ADOQuery连接ACCESS数据库时无法连接！(100分)

我喜欢 zhyanfeng的这段，经典就是有点长。

哈哈哈，用Delphi打下天下！

我现在发现问题了，，我的数据库我都没设置用户和密码，但是现在打开时竟然出现登陆窗
但是我不输入密码却可以用，，
如何将一个有设置的ACCESS设为不用密码和用户

唉，，下班了，，晚上请个专家现场指导一下，谢谢大家了，，，

procedure TdmMain.DataModuleCreate(Sender: TObject);
var
regReadCon: TRegistry;
sDataBase, sUserName, sPassword: String;
begin
regReadCon := TRegistry.Create;
regReadCon.RootKey := HKEY_LOCAL_MACHINE;
Try
with AdoCnn do
begin
Close;
if Not(regReadCon.OpenKey('SOFTWARE/LIANDA/SF', False)) then
begin
ShowMessage('读取注册表失败！');
Close;
end
else begin
sDataBase := regReadCon.ReadString('DataBase');
sUserName := regReadCon.ReadString('UserName');
sPassword := regReadCon.ReadString('Password');
end;
ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=True;User Id=Admin;';
ConnectionString := ConnectionString + 'Data Source=' + sDataBase + ';';
ConnectionString := ConnectionString + 'Jet OLEDBataBase Password=' + sPassword;
Try
Close;
Open;
Except
ShowMessage('连接数据库失败！');
Close;
end;
end;
Finally
regReadCon.Free;
end;
end;

end.