主题：请教关于日期输入框的使用问题

请问下我用日期输入框输入了查询的起止日期，用下面语句提示错误，如何解决？   

    Dim qsj As Date = e.Form.Controls("起时间").value

    Dim zsj As Date = e.Form.Controls("止时间").value

    DataTables("工作日志").LoadFilter ="日期 >= #" & qsj & "# And 日期 <= #" & zsj & "#"
    DataTables("工作日志").Load()

用 MESSAGEBOX.SHOW 弹出一下你拼接的表达式  看看拼接成什么了.

Dim Filter As String
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        Filter = "日期 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "日期 <= #" & .Value & "#"
    End If
End With
If Filter > "" Then
    Tables("订单").Filter = Filter
End If

谢谢，按楼上的办法，解决了！