查询数据库有关问题

查询数据库问题
rs.Open "SELECT 编号,事项内容,改进方案,责任人,注意事项,预计完成日期,实际完成日期,开始日期,是否完成,目前进度,备注 FROM 执行分析 where 责任人='" & Combo1.Text & "' and 开始日期 between' " + Str(DTPicker1.Value) + "' and '" + Str(DTPicker2.Value) + "' order by 开始日期 ", cnn
以上是原来的代码
现在要加一个要求，就是查询出来的数据 预计完成日期<当前系统日期
如下
rs.Open "SELECT 编号,事项内容,改进方案,责任人,注意事项,预计完成日期,实际完成日期,开始日期,是否完成,目前进度,备注 FROM 执行分析 where 责任人='" & Combo1.Text & "' and 开始日期 between' " + Str(DTPicker1.Value) + "' and '" + Str(DTPicker2.Value) + "' order by 开始日期 and 预计完成日期<date", cnn
可是不行，请指教。。。非常感谢



[解决办法]
rs.Open " SELECT 编号,事项内容,改进方案,责任人,注意事项,预计完成日期,实际完成日期,开始日期,是否完成,目前进度,备注 FROM 执行分析 where 责任人='" & Combo1.Text & "' and 开始日期 between' " + Str(DTPicker1.Value) + "' and '" + Str(DTPicker2.Value) + "' order by 开始日期 and 预计完成日期<GETDATE() "
[解决办法]
SQL中GETDATE()函数表示系统当前日期时间
[解决办法]
基本语法错了，新加的 AND 条件应该放在 ORDER BY 前面。

VB code

rs.Open "SELECT 编号,事项内容,改进方案,责任人,注意事项,预计完成日期,实际完成日期,开始日期,是否完成,目前进度,备注" & _        " FROM 执行分析" & _        " WHERE 责任人='" & Combo1.Text & "'" & _        " AND 开始日期 between' " & Str(DTPicker1.Value) & "' and '" + Str(DTPicker2.Value) + "'" & _        " AND 预计完成日期<'" & Date & "'" & _        " ORDER BY 开始日期", _        cnn