Create two calculated fields in your query:
=DatePart("d",[YourDateFieldName]) ------ the system will assign a field name called Expr1
=DatePart("m",[YourDateFieldName]) ------ this one will be called Expr2
Set the criterion of Expr1 as: DatePart("d",Date())
Set the criterion of Expr2 as: DatePart("m",Date())
Let me know how it goes.