ник: час
Set RecSet = CurrentDb.OpenRecordset("SPISOK", dbOpenDynaset)
запрос вручную открывается а програмно почему-то параметров нет... 
эти два параметра значения из полей формы,
может их как -то иначе передавать надо
я вот так Val([Forms]![DOKUMENTI]![NomMes])
и так
[Forms]![DOKUMENTI]![NomMes]
может так
Function nommes()
nommes = Forms![DOKUMENTI]![Mesyac]
End Function