El Adoquery No Me Hace Una Subconsulta

[chetos7]

hola, disculpen la molestia pero tengo un problema. Estoy haciendo una consulta con otra consulta anidada en access y mostrar el resultado en un dbgrid, pero el adoquery no me hace la consulta. Si hago una consulta simple si lo hace , pero si hago una subconsulta, no hace nada el adoquery. Ya probe la consulta con valores fijos en el access y si funciona, pero en ejecucion no. Alguien podria ayudarme, gracias de antemano
Codigo de la consulta

Código Delphi [-]
 disp:='Disponible';
  fec:=DATETOSTR(DATETIMEPICKER1.Date);
  hr:=ComboBox5.Text;
  Datamodule4.ADOQuery3.SQL.Clear;
  Datamodule4.ADOQuery3.SQL.Add('select Equipo.Folio,Nom_equipo,Marca ');
  Datamodule4.ADOQuery3.SQL.Add(' from Equipo');
  Datamodule4.ADOQuery3.SQL.Add(' where Equipo.Estado=:disp and Equipo.Folio not in ');
  Datamodule4.ADOQuery3.SQL.Add(' (SELECT Apartado.Folio FROM Apartado WHERE Fecha_Prest=:fec AND Hr_Prest=:hr)');
  DAtamodule4.ADOQuery3.Parameters.ParamByName('disp').Value:=disp;
  Datamodule4.ADOQuery3.Parameters.ParamByName('fec').Value:=fec;
  Datamodule4.ADOQuery3.Parameters.ParamByName('hr').Value:=hr;
  Datamodule4.ADOQuery3.Active:=true;
  Datamodule4.ADOQuery3.Open;
  Datamodule4.DataSource3.DataSet:=Datamodule4.ADOQuery3;
  DBGrid1.DataSource:=Datamodule4.DataSource3;

[ContraVeneno]

¿ y si enlazas al dbgrid con el dataset a la hora del diseño? ¿funciona? ¿porque los asignas en tiempo de ejecución?

Estas dos líneas hacen los mismo, yo diría que quitaras una:

Código Delphi [-]
  Datamodule4.ADOQuery3.Active:=true;
  Datamodule4.ADOQuery3.Open;

y sigo teniendo mis dudas en la forma en que enlazas el dbgrid con la consulta.