Birdy: No, the user does not enter a month at the start. The date the query is run is the date which also specify the month for the customers.
Now I got it:
I show only the important part of the select sentence:
WHERE (((FormatNumber(Mid([DOB],3,2),"0","0"))=Month(Now())) And .....
Don't mind...