主题：筛选求助

参考代码

Dim str As String = "201701"
Dim d As Date = new Date(str.SubString(0,4), str.SubString(4,2), 1)
Dim filter As String = "日期 >= #" & d & "# and 日期 < #" & d.AddMonths(1) & "#"
msgbox(filter)