[ecfisa]

Hola mblascog.

No sé si entendí lo último que comentas pero si solo se trata de obtener la ruta de la cadena que previamente se generó en el query, creo que podrías hacer:

Código Delphi [-]
uses StrUtils;

function GetPathFromQry(const qStr:string): string;
var
  p1,p2: Integer;
begin
  Result:= '';
  p1:= Pos('DBQ=', qStr) + Length('DBQ=');
  p2:= PosEx(';', qStr , p1);
  Result := Copy(qStr ,p1, p2-p1);
end;

Ej. de llamada:

Código Delphi [-]
  ShowMessage(GetPathFromQry(ADOQuery1.ConnectionString));

De la cadena ejemplo de tu mensaje se obtendría: C:\OMH\Habitatge_Iris.mdb

Saludos