БД и OpenDialog

//PathToDB:=edit1.text+'.mdb';
   adoconnection1.Connected:=false;
   adotable1.Active:=false;
 If OpenDialog1.Execute then begin
  Opendialog1.FileName:=PathToDb;
   adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ PathToDb +  ';Persist Security Info=False';
   ADOConnection1.LoginPrompt := False;
   adoconnection1.Connected:=true;
   adotable1.Connection:=adoconnection1;
   adotable1.TableName:='Òàáëèöà1';
   adotable1.Active:=true;
  end;

Try
 {тело}
exсept
 {если ошибка, то попадаем сюда и обрабатываем}
end;

procedure TForm1.Button6Click(Sender: TObject);
var
PathToDB:string;
begin
   adoconnection1.Connected:=false;
   adotable1.Active:=false;
   If OpenDialog1.Execute then begin
     PathToDb:=Opendialog1.FileName;
   end;
   adoconnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +PathToDb+';Persist Security Info=False';
   ADOConnection1.LoginPrompt := False;
   adoconnection1.Connected:=true;
   adotable1.Connection:=adoconnection1;
   adotable1.TableName:='Таблица1';
   adotable4.TableName:='Таблица2';
   adotable1.Active:=true;
end;

procedure TForm1.N7Click(Sender: TObject);
var PathToDB:string;
begin
   DataModule2.ADOConnection1.Connected:=false;
 
   DataModule2.ADOQuery1.Active:=false;
   DataModule2.ADOQuery2.Active:=false;
   DataModule2.ADOQuery3.Active:=false;
   DataModule2.ADOQuery4.Active:=false;
   DataModule2.ADOQuery5.Active:=false;
   DataModule2.ADOQuery6.Active:=false;
   DataModule2.ADOQuery7.Active:=false;
 
   If OpenDialog1.Execute then begin
     PathToDb:=Opendialog1.FileName;
   end;
   DataModule2.ADOConnection1.ConnectionString:='Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+PathToDb+';Persist Security Info=False';
   DataModule2.ADOConnection1.LoginPrompt:= False;
   DataModule2.ADOConnection1.Connected:=true;
 
   DataModule2.ADOQuery1.SQL.Clear;
   DataModule2.ADOQuery1.SQL.Add('SELECT*');
   DataModule2.ADOQuery1.SQL.Add('FROM Ïîíåäåëüíèê');
   DataModule2.ADOQuery1.Active:=true;
 
 
   DataModule2.ADOQuery2.SQL.Clear;
   DataModule2.ADOQuery2.SQL.Add('SELECT*');
   DataModule2.ADOQuery2.SQL.Add('FROM Âòîðíèê');
   DataModule2.ADOQuery2.Active:=true;
 
   DataModule2.ADOQuery3.SQL.Clear;
   DataModule2.ADOQuery3.SQL.Add('SELECT*');
   DataModule2.ADOQuery3.SQL.Add('FROM Ñðåäà');
   DataModule2.ADOQuery3.Active:=true;
 
   DataModule2.ADOQuery4.SQL.Clear;
   DataModule2.ADOQuery4.SQL.Add('SELECT*');
   DataModule2.ADOQuery4.SQL.Add('FROM ×åòâåðã');
   DataModule2.ADOQuery4.Active:=true;
 
   DataModule2.ADOQuery5.SQL.Clear;
   DataModule2.ADOQuery5.SQL.Add('SELECT*');
   DataModule2.ADOQuery5.SQL.Add('FROM Ïÿòíèöà');
   DataModule2.ADOQuery5.Active:=true;
 
   DataModule2.ADOQuery6.SQL.Clear;
   DataModule2.ADOQuery6.SQL.Add('SELECT*');
   DataModule2.ADOQuery6.SQL.Add('FROM Ñóááîòà');
   DataModule2.ADOQuery6.Active:=true;
 
   DataModule2.ADOQuery7.SQL.Clear;
   DataModule2.ADOQuery7.SQL.Add('SELECT*');
   DataModule2.ADOQuery7.SQL.Add('FROM Âîñêðåñåíèÿ');
   DataModule2.ADOQuery7.Active:=true;
 
end;

uses ..., IniFiles;
 
// в обработчике N7Click, там, где запускается OpenDialog:
  if OpenDialog1.Execute then
    with TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')) do
      try
        PathToDb := OpenDialog1.FileName;
        WriteString('DB', 'DBPath', PathToDb);
      finally
        Free;
      end;
 
// В OnCreate формы:
    with TIniFile.Create(ChangeFileExt(Application.ExeName, '.ini')) do
      try
        PathToDb := ReadString('DB', 'DBPath', 'дефолтный_путь');
        // Открываешь базу PathToDB
      finally
        Free;
      end;