Как при помощи VBA найти максимальный порядковый номер

Помогите чайнику!!!!!! ???? В запросах это всё просто, а мне надо составить выражение в VBA.... чтобы при нажатии определённой кнопочки в форме добавлялся следующий порядковый номер.......

-- Как найти в таблице макс. номер записаный в "поле1", по условию в "поле2"???


Есть Таблица"Rabota po otdelam" с полями "CountRabot_Schetchik" ; "Otdel" ; "NrRabot";.......
(Где для каждого отдела ведётся своя порядковая нумерация)

Как при помощи VBA найти максимальный порядковый номер для определённого отдела?????...


maxNr = ??? NrRabot ??????????? (условие "Otdel")

Public Sub Max_Nom(otdel as string)
Dim db As Database
Dim rs_kont_max As DAO.Recordset
Dim st_sel_max As String
Set db = CurrentDb()
st_sel_max = "SELECT MAX(поле1) AS maxs FROM NrRabot WHERE trim(Otdel) = '" & trim(otdel) & "'"
Set rs_kont_max = db.OpenRecordset(st_sel_max, dbOpenDynaset)
max_nom = rs_kont_max!maxs + 1
end sub

По-моему, ничего не забыл, но не проверял. Успехов