strSQL = "SHAPE {"
strSQL = strSQL & "SELECT DISTINCTROW tblTempEmployees.Name, tblTempEmployees.EmployeeID "
strSQL = strSQL & "FROM tblTempEmployees "
strSQL = strSQL & "INNER JOIN tblTempTimes ON "
strSQL = strSQL & "tblTempEmployees.EmployeeID = tblTempTimes.EmployeeID "
strSQL = strSQL & "ORDER BY tblTempEmployees.Name, tblTempTimes.Date} "
strSQL = strSQL & "AS Command1 "
strSQL = strSQL & "APPEND ({"
strSQL = strSQL & "SELECT DISTINCTROW tblTempEmployees.Name, tblTempTimes.Date, tblTempTimes.TimeIn, tblTempTimes.TimeOut, tblTempTimes.TotalHours, tblTempEmployees.EmployeeID, tblTempEmployees.Shift "
strSQL = strSQL & "FROM tblTempEmployees "
strSQL = strSQL & "INNER JOIN tblTempTimes ON "
strSQL = strSQL & "tblTempEmployees.EmployeeID = tblTempTimes.EmployeeID "
strSQL = strSQL & "WHERE tblTempTimes.Date BETWEEN '" & StartDate & "' AND '" & EndDate & "' "
strSQL = strSQL & "ORDER BY tblTempEmployees.Name, tblTempTimes.Date} "
strSQL = strSQL & "AS Command2 RELATE 'EmployeeID' TO 'EmployeeID') AS Command2"
Me.Sections("PageHeader").Controls.Item("lblHeader").Caption = "Displaying ALL punches between " & Format(StartDate, "mm-dd-yyyy") & " and " & Format(EndDate, "mm-dd-yyyy")