Datetimepicker 控件的问题!!

这里是一个SQL的查询问题
我要在SQL语句中加一个条件:使要查这个表的datebook这个日期型的字段在
Datetimepicker1与Datetimepicker2之间


procedure TfrmLogin.speOKClick(Sender: TObject);
begin

with ADOLogin do
begin
Close;
SQL.Clear;
SQL.Add('select * from tbUser where datebook between datebook =:d1 and datebook =:d2');
Parameters.ParamByName(d1).Value :=strtodatetime(Datetimepicker1.Date);
parameters.ParamByName('d2').Value :=strtodatetime(Datetimepicker2.Date);
Open;
end;
end.

这样子的语句运行时一直会出错这是为什么呢?
请高手们帮我指教下!
急用谢谢了!!