General :: Date Query Not Extending Past The New Year?

Now that the year has moved into 2014, the query below no longer works. It appears that it is not extending back into 2013.

Code:

Private Function multiDateClause(dateStartQry As String, dateEndQry As String, firstOp As String, secondOp As String)
multiDateClause = dateClause(dateStartQry, firstOp) & " AND " & dateClause(dateEndQry, secondOp)
End Function
Private Sub b_last7_Click()
Me.resultsFrame.SourceObject = "FollowUp_bystaff"
Me.resultsFrame.Form.RecordSource = todoListQry(multiDateClause("Date()-6", "Date()", ">=", "<="))
End Sub