Открытие БД через OpenDialog с использованием ADOConnection

var path : string;
begin
  try
      OpenDialog1.Filter:='Файлы БД|*.mdf';
      if OpenDialog1.Execute then path:=OpenDialog1.FileName;
 
      if not(fileexists(path)) then ShowMessage ('База не найдена')
         else begin
                    ADOConnection1.Connected := false;
                    ADOConnection1.ConnectionString:= 
                    {сюда скопируй это свойство с компонента, только вместо пути конкатенируй переменную path, 
                      например для Access выглядело бы приблизительно так: 
     'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;data Source=' +
      Path + 
     ';Persist Security Info=False;' }  ; 
                    ADOConnection1.Connected := true;
         end;
  except
    on E : Exception do
      ShowMessage(E.ClassName+' ошибка : '+E.Message);
  end;
end;

procedure TFormConnection.Edit1Change(Sender: TObject);
var Edi : TEdit;
begin
   Edi := Sender as TEdit;
   s:=edi.Text;
end;
 
procedure TFormConnection.ПодключитьClick(Sender: TObject);
begin   
   FormMain.ADOConnection1.Connected := false;
   FormMain.AdoConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=' + s;
   FormMain.ADOConnection1.Connected := true;
   if FormMain.ADOConnection1.Connected = true then
   begin
      ShowMessage('Соединение установлено!');
   end
   else
   ShowMessage('Соединение не удалось установить!');
end;

procedure TFormConnection.Edit1Change(Sender: TObject);
var Edi : TEdit;
begin
   Edi := Sender as TEdit;
   s:=edi.Text;
end;
 
procedure TFormMain.ConnectionBDClick(Sender: TObject);
begin
   if OpenDialog2.Execute then
   begin
      ADOConnection1.Connected := false;
      AdoConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=' + s;
      ADOConnection1.Connected := true;
      ShowMessage('Соединение установлено!');
   end
   else
      ShowMessage('Соединение не удалось выполнить!');
end;

procedure TFormConnection.ПодключитьClick(Sender: TObject);
begin
   FormMain.ADOConnection1.Connected := false;
   FormMain.AdoConnection1.ConnectionString:='Provider=MSDASQL.1;Persist Security Info=False;Data Source=' + s;
   try
      FormMain.ADOConnection1.Connected := true;
      ShowMessage('Соединение установлено!');
      FormMain.Open_File.Enabled:=True;
      FormMain.PoiskNomera.Enabled:=True;
      FormMain.SaveRezInExcel.Enabled:=True;
      FormMain.PlayAudio.Enabled:=True;
      FormMain.SaveAudio.Enabled:=True;
      FormMain.VvodNomeraDlyaPoiska.Enabled:=True;
      FormConnection.Close
   except
      on e:Exception do ShowMessage('Соединение не удалось установить!: '+e.Message);
   end;
end;