主题：命令窗口执行正确，到窗口就执行错误~~

Dim rq As WinForm.DateTimePicker = e.Form.Controls("开始日期")
rq.value = Date.Today()

Dim dt As String
'dt = ("[开始] >= #2015-11-05# And [完成] <= #2015-11-05#")
'dt = ("[开始] >= #" & rq.Value & "#" & " And [完成] <= #" & rq.Value & "#")
'MessageBox.Show(dt)
If rq.value IsNot Nothing Then
    If dt >"" Then
        Tables("进度计划表").Filter = "[开始] <= #" & rq.value & "#" & " And [完成] >= # " & rq.value & "#"
    End If
End If