I copied your first code "BETWEEN DateSerial(Year(Date()), Month(Date()), 1) AND DateSerial(Year(Date()), Month(Date()) + 2, 0)"
but its not working first error was Sytax and i used "" and now there is a new error :
Data type mismatch in criteria expression.