[Assistant]

использовать DateSeparator и ShortDateFormat, ибо MS Access хочет дату вида: #mm/dd/yyyy#: (делал на лету, может и не сработать, но пример должен быть понятен)

Код:

var
  m_date: string;
  old_DateSeparator: char;
  old_ShortDateFormat: string;
begin
  old_DateSeparator := DateSeparator;
  old_ShortDateFormat := ShortDateFormat;

  DateSeparator := '/';
  ShortDateFormat := 'mm/dd/yyyy';

  m_date := '#'+DBDAteTimeEditeh1.Text+'#';

  Adoquery1.Active;
  Adoquery1.SQL.Text := 'SELECT [ID_товара]  FROM   [Склад] WHERE [Дата заказа] = ' + #39 + m_date + #39;
  Adoquery1.Open;

  DateSeparator := old_DateSeparator;
  ShortDateFormat := old_ShortDateFormat;
end;