Как проверить, есть ли подключение к БД при запуске приложения?

procedure DBModule.DataModuleCreate(Sender: TObject);
    const
      Full_path = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
    var
      Base_path: string;
    begin
      Base_path := ExtractFilePath(ParamStr(0))+'DB.mdb'; //база в каталоге с программой
     
        With ADOConnection1 do
         Begin
            Close;
            try
              ConnectionString:= Format(Full_path, [Base_path]);
              Open;
             except
              ShowMessage('Ошибка подключения !');
              Exit;
            end;
         if Form1.OpenDialog1.Execute then
    ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+OpenDialog1.FileName + ';Persist Security Info=False';
      ADOConnection1.Connected := true;   
                    End;
            end;

procedure DBModule.DataModuleCreate(Sender: TObject);
    const
      Full_path = 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
    var
      Base_path: string;
    begin
      Base_path :='твой путь к базе';
     
        With ADOConnection1 do
         Begin
            Close;
            try
              ConnectionString:= Format(Full_path, [Base_path]);
              Open;
             except
              ShowMessage('Ошибка подключения !');
              Exit;
            end;
         if Form1.OpenDialog1.Execute then
    ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;DataSource='+OpenDialog1.FileName + ';Persist Security Info=False';
      ADOConnection1.Connected := true;   
             end;
            end;

const
  Full_path =
    'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=%s;Persist Security Info=False';
var
  Base_path: string;
begin
  Base_path := 'BD\1.mdb';
  With ADOConnection1 do
  Begin
    Close;
    try
      ConnectionString := Format(Full_path, [Base_path]);
      Open;
    except
      ShowMessage('Ошибка подключения !');
      Exit;
    end;
  End;
end;

procedure TfrmMain.ConnBD;
 var
    DBuser, DBPass, DBServer, DBBase : string;
begin
  try
   try
    Ini := TiniFile.Create('C:\Windows\BaseConnesct.ini');  // BaseConnesct.ini
    DM.conBD.Connected := false;
    //-------Присваиваем
     DBuser  := Ini.ReadString('UserName','Users', '' );
     DBPass := Ini.ReadString('Paswword','Pass', '');
     DBServer := Ini.ReadString('Server','Server', '');
     DBBase := Ini.ReadString('Database','Database', '');
 
    //------------ расшифровывает параметр который в .ini
    DBuser:= iddecoderxxe1.DecodeString(DBuser, TEncoding.UTF8);
    DBPass:= iddecoderxxe1.DecodeString(DBPass, TEncoding.UTF8);
    DBServer:= iddecoderxxe1.DecodeString(DBServer, TEncoding.UTF8);
    DBBase:= iddecoderxxe1.DecodeString(DBBase, TEncoding.UTF8);
 
    //-----------Передаём расшифрованный значения
    DM.conBD.Username := Ini.ReadString('','',DBuser);
    DM.conBD.Password := Ini.ReadString('','', DBPass);
    DM.conBD.Server := Ini.ReadString('','', DBServer);
    DM.conBD.Database := Ini.ReadString('','', DBBase);
    DM.conBD.Port := Ini.ReadInteger('','', 1433);
    DM.conBD.Connected := true;
    DM.msqryUsers.Open;
    except
      MessageDlg('Ошибка.! невозможно подключиться к серверу',mtError,[mbOK],0);
      Application.Terminate;
    end;
  finally
    ini.Free;
  end;
end;

procedure TfrmMain.FormShow(Sender: TObject);