主题：[求助]

请问设计一个窗口，可以输入起始日期和结束日子，然后有个查询按钮，请问如何实现点按钮后可以查找指定列中日期在这个范围内的所有行呢？

上述按钮可以实现按时段筛选了，但是如何实现在窗口中输入任意时段可以作为筛选的起点和止点呢？

日期控键可以输入，但是输入的时间无法无查询按钮中的时间关联，苦恼啊

Dim y As Integer = 2014
Dim m As Integer = 4
Dim dt1 As New Date(y, m, 1)
Dim dt2 As New Date(y, m, Date.DaysInMonth(2014,4))
Dim Filter As String
Filter = "设计完成日期 >= #" & dt1 & "# And 设计完成日期 <= #" & dt2 & "#"
Tables("开工报告").Filter = Filter

中的年和月是固定的，如何将其和窗口中文本筐中的时间关联呢？