主题：按照日期筛选的问题

取得这个月的第一天和最后一天，然后进行筛选：

Dim Filter As String
With e.Form.Controls("Time")
    If .Value IsNot Nothing Then
        Dim dt As Date = .value
        Dim dt1 As Date = new Date(dt.year,dt.month,1)
        Dim dt2 As Date = dt1.AddMonths(1).AddDays(-1)
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "rq >= #" & dt1 & "# And rq <= #" & dt2 & "#"
    End If
End With