[vtdeleon]

Con una tabla que tengo en access aqui me ha funcionado de 10.

Código Delphi [-]
With AdoQuery do
begin
  close;
  SQL.Text:='Select fecha from control where fecha<:fecha';
  Parameters.ParamByName('fecha').DataType:=ftDate;
  Parameters.ParamValues['fecha']:=Trunc(DateTimePicker1.Date);
  Open;
end;

Lo he ejecutado una y otra vez, y esta nítido!