You don't need a complex set of expressions or even VBA to sort Access date values by specific components, such as month or year. Use DatePart() and sort on its results.