Function SortByYear(ByVal z As DAO.Recordset) As String
 Dim mySortedRS As DAO.Recordset
 z.Sort = "Year"
 Set mySortedRS = z
    Do
        Debug.Print mySortedRS!Year
        mySortedRS.MoveNext
    Loop Until mySortedRS.EOF
Set mySortedRS = Nothing
End Function