The idea is that you use DateSerial to get 1st day of the month:-
VB Code:
DateSerial(Year(dtDate), Month(dtDate), 1)
To get the last day of the month you add a month to the first day then subtract 1 day which gives you
VB Code:
DateAdd("d", -1, DateAdd("M", 1, DateSerial(Year(dtDate), Month(dtDate), 1)))