Непонятно каким образом значение возвращаемое функцией "ДобавитьОжДату(ByVal s As String)" попадает в текущее поле "Наименование объекта" таблицы "Object".
Происходит это после следующей последовательности действий:
1. Устанавливаем курсор на любую строку где присутствует текст в поле "Наименование объекта".

http://www.sql.ru/forum/1302291/poltergeyst-v-ms-access