OK, I don't know why the Date() function does not work, but in the mean time you can add the following pop up window.
Just add:
=[Enter Date]
In the criteria, a window will pop up and you manually will need to enter the date, in the following format 12/23/02.
This is a temporary solution, till the Date() delima is figured out. Maybe someone else can recommend why the function is not working.