Запрос по дате, Access

[Demien]

Добрый день.
Возникла у меня проблемма с запросом по дате. Работаю с БД Access.

    ...
    Memo1.Lines.Add('AND Date >= '''+FormatDateTime('MM/dd/yyyy', DateTimePicker1.Date)+'''');
    Memo1.Lines.Add('AND Date <= '''+FormatDateTime('MM/dd/yyyy', DateTimePicker2.Date)+'''');
    Memo1.Lines.Add('ORDER BY KP, Date, Time;');

    ADODataSet1.Active:=False;
    ADODataSet1.CommandText:=Memo1.Text;
    ADODataSet1.Active:=True;

Пробовал и формат даты менять... и с кавычками/диезами...
Выдает ошибку: Несоответствие типов данных в выражении условия отбора
Убираю условия по дате - все чудно работает!
Дык в чем ошибка?

P.S. Memo использую временно, чтобы иметь возможность просматривать сформированный отчет.

[maLoy*508]

у аксеса "свой" формат даты... проще всего использовать параметрический запрос...
то есть:

with dm.Exp1Cq do
 begin
  Close;
   with sql do
    begin
      Clear;
      Add('SELECT komplekt.id_obk, komplekt.id_mat, mat.NAIM_MAT, mat.OB_MAT, Sum(procent.kolvo_mont) AS [Sum-kolvo_mont]');
      Add('FROM (komplekt INNER JOIN procent ON komplekt.id_kompl=procent.id_kompl) INNER JOIN mat ON komplekt.id_mat=mat.ID_MAT');
      Add('WHERE (((procent.dat_mont)>=:p_data1 And (procent.dat_mont)<:p_data2))');
      Add('GROUP BY komplekt.id_obk, komplekt.id_mat, mat.NAIM_MAT, mat.OB_MAT');
      Add('HAVING (((komplekt.id_obk)='+IntToStr(DBLookupComboBox1.KeyValue)+'));');
    end;
    Parameters.ParamByName('p_data1').Value := dateTimePicker1.DateTime;
    Parameters.ParamByName('p_data2').Value := dateTimePicker2.DateTime;
   Open;
  end;

думаю суть Вам ясна
___________
апдейт
а дабы аксесу нравился формат даты передаваемый "напрямую"
следует писать

HAVING (((procent.dat_mont)>=#10/1/2010# And (procent.dat_mont)<#11/1/2010#))

формат mm/dd/yyyy и "решетки" по бокам

[_SERGEYX_]

  var FDateBegin, FDateEnd: TDateTime;
  
    Memo1.Lines.Add('AND Date >= :date_begin');
    Memo1.Lines.Add('AND Date <= :date_end');

    ADODataSet1.Active:=False;
    ADODataSet1.SQL.Text:=Memo1.Text;
    ADODataSet1.ParamByName('date_begin').AsDateTime := FDateBegin;
    ADODataSet1.ParamByName('date_end').AsDateTime := FDateEnd;
    ADODataSet1.Active:=True;

... не успел