主题：想建一个下拉日期筛选框

筛选指定月份数据

例如筛选2011年6月份的订单：

Dim y As Integer = 2011 '指定年份
Dim m As Integer = 6 '指定月份
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(2011,6)) '获取该月的最后一天
Dim Filter As String
Filter = "日期 >= #" & dt1 & "# And 日期 <= #" & dt2 & "#" 
Tables("订单").Filter = Filter

看你具体的情况, 用自己设计的下来窗口,就写在按钮里. 搞不定就上例子.