Thanks Bob,
I tried that but it didn't work, tried that in a table and it worked fine. Might be because I am using it in the criteria area of the query in a date field. However I did come up with a solution that worked:
<=DateAdd("d",-Day(Date()),Date())