搜索按钮如果不加入“月历”控件的数据，就能正常运行

如果加入了“月历”控件，当前选择的日期的数据就提示第二张图片的错误，不知道是哪里错了。

还有，多条件查找的时候，代码会变成灰色（代码可用），不方便看，请问如何解决，见图三

代码为：

Dim rq As WinForm.Calendar = e.Form.Controls("日期")
Dim hbh As WinForm.TextBox = e.Form.Controls("航班号")
Dim hd As WinForm.TextBox = e.Form.Controls("航段")
Dim aqy As WinForm.TextBox = e.Form.Controls("安全员")

Tables("勤务信息表").Filter ="日期 =#rq.value # and 航班号 like \'*"& hbh.Value & "*\' and 航段 like \'*" & hd.Value & "*\' and 安全员 like \'*" & aqy.Value & "*\'"

 图一为设计窗体

此主题相关图片如下：1.png

图二为错误提示

此主题相关图片如下：2.png

图三为灰色的代码。

请问老师，代码灰色怎么处理呢？