[richy08]

Hola gracias caral por contestarme pero no para nada ni loco utilizaria access utilizo mssql2005 y pues ya encontre la solucion jeje la posteo

Código Delphi [-]
 Crp_OcuRat.Selection.Formula.Clear;
      if dbl_Age.KeyValue=Null then
      begin
         Crp_OcuRat.Selection.Formula.Add(' {reserve.sStaRes}=''PA'' and {reserve.dArrivaldate}>={?fecini} and {reserve.dArrivaldate}<={?fecend}');

      end
      else
      begin
         Crp_OcuRat.Selection.Formula.Add(' {reserve.sStaRes}=''PA'' and {reserve.dArrivaldate}>={?fecini} and {reserve.dArrivaldate}<={?fecend} and {sources.sSourceCode}='+''''+Dbl_Age.KeyValue+'''');
      end;
        Crp_OcuRat.Paramfields[0].currentvalue:=FormatDateTime(' yyyy,mm,dd',Dtp_ArrDat.date);
        Crp_OcuRat.Paramfields[1].currentvalue:=FormatDateTime(' yyyy,mm,dd',dtp_deda.date);
        Crp_OcuRat.Show;