主题：筛选时间段怎么办

Dim StartDate As Date
Dim EndDate As Date
With RibbonTabs("实战演练")("任务五")
    StartDate = .Items("StartDate").Value
    EndDate = .Items("EndDate").Value
End With
Tables("订单").Filter = "[日期] >= #" & StartDate & "# And [日期] <= #" & EndDate & "#"

这段代码如果想改成 查询 时间段的内容改怎么改

例如  ： 想查询   4月23日3点15分 -----4月25日10点05分的 数据  代码该怎么改

非常感谢 ！！！