Сортировка записей по дате (по месяцу и году) - VB

Формулировка задачи:

Доброго времени суток!

Если кратко, то:

Нужен алгоритм сортировки записей по дате (по месяцу и году).
Есть БД на акцессе, есть форма на VB. На форме 2 комбобокса 1- выбор месяца, 2-выбор года и кнопка "Сортировка".

Подробное описание вопроса:

Есть БД на акцессе, в ней поле "дата", ну тоесть во время работы проги создаётся запись в бд и в поле "дата" проставляется дата создания записи в формате ХХ.ХХ.ХХХХ. После запуска проги в работу для сортировки этих записей по датам использовал корявую, но всё-таки рабочую функцию:

M
M = Combo5.ListIndex + 
 M <   M =  & M
apbase.Adodc3.ConnectionString =  & dbpath & 
apbase.Adodc3.RecordSource =  &  & M & 
 apbase.DataGrid3.DataSource = apbase.Adodc3
apbase.Adodc3.CommandType = adCmdText
apbase.Adodc3.CursorType = adOpenDynamic
apbase.Adodc3.Refresh 

М - это индекс поля со списком, тоесть если выбираю в списке Январь месяц, то это соответсвует индексу 0, тоесть М будет ровняться 1, далее приписываю к нему нолик, ибо даты в формате хх.хх.хххх, и далее уже ищу в базе. Но так как прога работает уже не первый год и в базе скопилось куча записей, то возникла проблема сортировки: при выборе, например, января месяца прога благополучно выдаёт все записи сделанные в январе ... 2008, 2009 и 2010 годов. Подскажите, как ограничить поиск конкретным годом?
Заранее благодарен!!! )))

Решение задачи: «Сортировка записей по дате (по месяцу и году)»

textual
                            Листинг программы 
                        

                            <font color="blue">Public</font> <font color="blue">Function</font> SQLDate(Dat <font color="blue">As</font> <font color="blue">Date</font>) <font color="blue">As</font> <font color="blue">String</font>
  SQLDate=Format$(Dat,<font color="teal">"\#mm\/dd\/yyyy hh:mm:ss\#"</font>)
<font color="blue">End</font> <font color="blue">Function</font>
                        