[Neftali [Germán.Estévez]]

Una forma sencilla es crear las dos cadenas de conexion en dos ficheros de texto, por ejempo. Al entrar al la aplicación pregunta al usuario y dependiendo de la respuesta carga en la propiedad ConnectionStrring de tu ADOConnection el contenido del fichero que quieras.

Algo Así:

Código Delphi [-]
var
  TS:TStrings;
  fileName, path:String;
begin
  // preguntar cual desea cargar
  ....


  if (resp = 'penal') then begin
    fileName := 'connP.txt';
  end
  else begin
    fileName := 'connC.txt';
  end;

  path := IncludeTrailingBackSlash(ExtractFilePath(Application.ExeName));
  TS := TStringList.Create();
  try
    TS.LoadFromFile(path + fileName);
    ADOConnection.ConnectionString := TS.Text;
  finally
    TS.Free;
  end;
end;