Сортировка данных в форме

[Tatochka]

Всем добрый день.
Посмотрела посты, но так и не смогла найти ответа на вопрос. При открытии формы нужно сортировать данные из таблицу по возрастанию. Ставлю выполнение запроса на order by на событие form_activate, тем не менее при открытии грида записи не сортируются. Скорее всего, не учитываю чего-то очень важного, но... из-за отсутствия опыта работы в программировании не могу понять - что именно:

Private Sub Form_Activate()
Dim rst As DAO.Recordset

Set rst = CurrentDb.OpenRecordset("SELECT tbФинОсвоенМес.КодГода, tbФинОсвоенМес.Месяц, *" _
& " FROM tbФинОсвоенМес " _
& " ORDER BY tbФинОсвоенМес.КодГода, tbФинОсвоенМес.Месяц;")

End Sub

[Tatochka]

Попыталась сортировать данные при открытии формы через свойство формы "Порядок сортировки" tbФинОсвоенМес.КодГода, tbФинОсвоенМес.Месяц.
При первом открытии сортирует в нужном порядке, но, к сожалению, если закрываю грид и открываю его снова, сортировка сбивается. Me.Requery в событии AfterUpdate не помогло.

[Teslenko_EA]

Здравствуйте Tatochka.
"..При открытии формы..сортировать данные .." не обязательно, думаю гораздо проще подключить источник с уже отсортированными данными.
Это можно выполнить и программно:

Private Sub Form_Open(Cancel As Integer)
Const sSql = "SELECT *  FROM tbФинОсвоенМес " + _
" ORDER BY КодГода, Месяц"
Me.RecordSource = sSql
...

Евгений.

[Tatochka]

Евгений, спасибо. Заработало во всех вариантах открытий и закрытий форм.