请各位帮忙看看这段代码问题出在什么地方

Question

var
sqlst:string ;sqlst :='select * from table1 where date = ' + datetostr(DateTimePicker1.Date);     
if ADOQuery1.Active = true then ADOQuery1.Close ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add(strparm) ;
ADOQuery1.Open;
工具：
delphi7 + access 
说明：
date 为table1 中的字段定义为string型
问题：检索不出数据 

Answer 1

'select * from table1 where date = ''' + datetostr(DateTimePicker1.Date) + '''';
就是这样也是错误的。只是还是小时，分钟

Answer 2

'select * from table1 where date =' +''''+format('yyyy-mm-dd' ,DateTimePicker1.Date)+''''
you try,

Answer 3

sqlst :='select * from table1 where date = '''+trim(datetostr(DateTimePicker1.Date))+''''