查询数据库问题

[游子]

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()函数表示系统当前日期时间

[游子]

我是在VB6里面写的。。

[Tiger_Zhao]

基本语法错了，新加的 AND 条件应该放在 ORDER BY 前面。

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