ADDConnection.Execute(s)中的日期参数问题,解决高分?

我的ADDConnection.Execute(s)中的s的where子句的 recordtime为日期时间字段,我要传入时间(begt,endts)去查询,错误,怎解决?  tmp := 'select * into [Text;Database=';
  tmp := tmp + dpath;
  tmp := tmp + '].aaaa.txt from ' + sname;
  tmp := tmp + ' where recordtime>='''+begts+''' and recordtime<='''+endts+''''
  SConnection.Execute(tmp);
  SConnection.Connected := True;