请教几个小问题

Question

1、
Private Sub Form_Load()
   If rs.State = adStateOpen Then rs.Close
   rs.Open " select * from 顾客信息表 order by 顾客编号 where 顾客状态=false", conn, adOpenDynamic,  adLockOptimistic, -1
   rs.MoveFirst
   While Not rs.EOF
      cmbCNo.AddItem rs.Fields.Item("顾客编号").Value
      rs.MoveNext
   Wend
   End Sub
运行后为什么提示语法错误（操作符丢失)?
2、怎样使DTPicker控件运行时默认为当前日期？
3、怎么使组合框只能选择而不能输入信息?

Answer 1

1.  order by 顾客编号 ，排序语句是不是应该在where的后面呢？
2. DTPicker.value=date
3. combo1.style=2

Answer 2

1：资料未提供完整，你的数据源名是什么、等等
2：我不知道你的DTPicker控件是什么控件（我没用过），实现方法应该大概为：在表单的LOAD事件中，用一个变量取得当前系统日期，再将此值赋予DTPicker控件
3：使用下拉框，不要用组合框，这样才能实现只能选择不能输入的要求

Answer 3

1.rs.Open " select * from 顾客信息表 order by 顾客编号 where 顾客状态=false", 
=>rs.Open " select * from 顾客信息表 where 顾客状态=false order by 顾客编号", 2.Me.DTPicker1.Value = Now3.将组合框的Style属性设为2-Dropdown List