[BuTeK22]

Код:

begin
fName:=(ExtractFilePath(paramstr(0)));
  AssignFile(f,fName+'\BD\Setup.txt');
  {$I-}
  Reset(f);
  {$I+}
   if IOResult <> 0 then
  begin
    ShowMessage ('Ошибка доступа к файлу '); exit;
  end;
    while not EOF(f) do
  begin
    readln(f, buf);
  end;
    CloseFile(f);
       begin
 Form2.ADOTable1.Active:= False;
 Form2.ADOConnection1.Connected:= False;
 Form2.ADOConnection1.LoginPrompt:= False;
 Form2.ADOConnection1.Provider:= 'Microsoft.Jet.OLEDB.4.0';
 Form2.ADOConnection1.ConnectionString:=
 'Provider=Microsoft.Jet.OLEDB.4.0;' +
 'User ID=Admin;' +
 'Data Source='+buf+'\BD\БД.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:Compact Without Replica Repair=True;' +
 'Jet OLEDB:SFP=False';
 Form2.ADOConnection1.Mode:= cmShareDenyNone;
 Form2.ADOConnection1.Connected:= True;
 Form2.ADOTable1.Connection:=Form2.ADOConnection1;
 Form2.ADOTable1.TableName:='Users';
 Form2.ADOTable1.Active:= True;
 end;