You mean to tell us that you got the hard part down and you couldn't figure
out the easy part???
You just need to tack on the filter for dates... something like

WHERE ...
AND Year([DateField]) = Year(Date())

--
Message posted via http://www.accessmonster.com