БД Access и разграничение прав доступа

[chandrasecar]

Программа с БД в Access. Для подключения к БД использую компонент ADOConnection. Строка подключения формируется в коде. Пароль к базе данных пустой. Как сделать подключение к БД без показа диалога ADOConnection для ввода логина и пароля?

Сейчас подключение в коде выглядит так:

  {ôîðìèðîâàíèÿ ñòðîêè ïîäêëþ÷åíèÿ ê ÁÄ}
  Str:='Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=' +
  ExtractFilePath(paramstr(0)) +
  'Data\db.mdb;Mode=ReadWrite;Extended Properties="";Persist Security ' +
  'Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet ' +
  'OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet OLEDB:Database ' +
  '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 OLEDB:Don' + Chr(39) +
  't Copy Locale on Compact=False;Jet OLEDB:Compact Without Replica Repair=' +
  'False;Jet OLEDB:SFP=False';

  ADOConnection.ConnectionString:=Str;
  ADOConnection.Mode:=cmReadWrite;
  ADOConnection.Connected:=True;