Программная настройка ADOConnection

var
  //Индикатор выбора пользователя
  URInd: Cardinal;
  //Файл настроек
  Ini: Tinifile;
  //путь к скомпилированному файлу, АДОпровайдер, путь к базе данных, соответственно
  GenDir, Provider, DBPath: String;
begin
  //Определились с путем к приложению
  GenDir:= ExtractFileDir(Application.ExeName);
  //Открыли или создали файл настроек
  Ini:= Tinifile.Create(GenDir + '/Settigs.ini');
  //Индикатору необходимо первоначальное значение
  URInd:= 0;
  //Если пользователь в случае ошибки выберет вариант не настраивать и не перезагружать приложение тогда выходим из цикла
  while URInd <> 7 do
  begin
    //отслеживаем исключения
    try
      //Провайдер для открытия последнего Microsoft Office Access 
      Provider:= 'Provider=Microsoft.ACE.OLEDB.16.0;Data Source=';
      //Получаем путь к базе данных из файла настрое, если этого параметра нет, будем пытаться открыть базу данных в папке приложения
      DBPath:= ini.ReadString('DBSettings', 'path', GenDir + 'DB.accdb');
      //Обращаемся к модулю данных (библиотеку Unit от этого модуля подключил)
      with GeneralDM do
      begin
        //На этом моменте возникает ошибка (настройка ADOConnection)
        BDConnecter.ConnectionString:= provider+DBPath+';Persist Security Info=False;';
        //Подключаемся к базе данных
        BDConnecter.Connected:= True;
        //Отправляем SQL запрос
        SQLQuery.Active:= True;
      end;
    //Выходим из цикла
    break;
    //Если возникла ошибка
    except
      //Фиксируем ошибку
      on E: Exception do
      begin
        //Фиксируем реакцию пользователя на ошибку
        URInd:= MessageDlg(E.ClassName+
          ' Не удолось подключится к базе, код ошибки: '+E.Message+
          ''#13#10#13#10'хотите провести настройку вручную?',
          mtError, [mbYes, mbRetry, mbNo], 0);
        //Корректируем поведение программы
        case URInd of
          //Пользователь решил провести настройку вручную
          6:  if OpenDialog1.Execute then
                begin
                  //Фиксируем базу данных выбранную пользователем в файле настроек
                  ini.WriteString('DBSettings', 'path', OpenDialog1.FileName);
                end;
          //Пользователь решил выйти из программы
          7: Application.Terminate;
        end;
      end;
    end;
  end;
end;