Dim strWhere As String Dim dtRequeestStartDate As Date Dim dtRequestEndDate As Date dtRequestStartDate = Me![Text1].Value dtRequestEnd