I'd first check that the textbox values you are using in your query are as expected.
Comment out your Query and insert the following:
Dim myvar1, myvar2, myvar3, myvar4 As String
myvar1 = [Forms]![TimeSheet Search]![Week Ending]
myvar2 = [Forms]![TimeSheet Search]![Employee Name]
myvar3 =...