[ContraVeneno]

Código Delphi [-]
procedure TFormListadoVentas.ButtonfiltrofechaClick(Sender: TObject);
begin
 
 with formlistadoVentas.ADOQueryFiltro do begin
  If Active then Close;
  SQL.Clear;
  SQL.Add('SELECT Fecha, ID, Nombre, etc'); //no es recomendable usar Select *... es preferible que escribas los campos que necesitas
  SQL.Add('FROM tVentas');
  SQL.Add('WHERE Fecha = :fecha');
  Parameters.ParamByName('Fecha').AsDate := DateTimePicker1.Date;
  Open;
 end; //with

 FormListadoVentas.dbgridVentas.DataSource := datasourceFiltro; // estos no se para que son
 FormListadoVentas.DBNavigator1.DataSource := datasourceFiltro; // ??
end;

eso debería funcionar...