在VB中创建表单时带有静态时间戳的变量日期

Question

我正在尝试修改VB中的一些代码，这些代码在Access中创建一个表单，允许用户在表单中输入任何日期，但会在这些输入日期的午夜返回计数。

我目前的代码：

    strBegDate = Format(Forms!frmMain!txtDateIn, "dd-mmm-yyyy")
    strEndDate = Format(Forms!frmMain!txtDateOut, "dd-mmm-yyyy")

    strSelect = "SELECT DTS.DT, CUS.FACILITYID, CUS.FACILITYNAME, COUNT(DISTINCT CUS.INDIVIDUALID) COUNTOFINDIV  " & _
"FROM (select dt  from (select sysdate dt from dual)  model  " & _
"return updated rows  dimension by(dt)  measures (1 as dummy)  " & _
"rules  (dummy[FOR dt from TO_DATE(' " & strBegDate & " ')  TO  TO_DATE(' " & strEndDate & " ') INCREMENT 1] = null)) DTS  " & _

有关如何修改我的代码以在用户输入任何日期时添加静态午夜时间戳的任何提示。

非常感谢！