Возможно, нет ответа, больше комментариев, но пока нет, но
eventID = DLookup("[personelID]", "[tbl_ics238Table]", strCriteria)
должно быть
eventID = DLookup("[personelID]", "[tbl_ics238Table]", **eventstrCriteria**)
(удалить звездочку)
Это было бы причиной того, что первая функция dlookup () вернула бы ноль (я думаю), что затем вывело бы вторую ошибку dlookup.