Got this from a post by Allan Bunch - RuralGuy - on Access World Forums:
Public Function ReturnLastDateOfMonth() ReturnLastDateOfMonth = DateSerial(Year(#2/1/2008#), Month(#2/1/2008#) + 1, 0) End Function