Sovnik, спасибо огромное за совет. Но определять этот объект перед этим я пробовал, ошибка та же. Правда инструкцию set не добавлял.
Буквально вчера вечером я таки нашел ответ, мне пояснили в чем проблема на самом деле. Этот код был написан под Access. И эта функция просто напросто используется в Access, а VB6 её не приемлет. Как я понял функция встроенная, и явного определения не требует. И так же всё что требуется так это заменить её другой функцией.
А на счёт червя, систему проверю, но такая ошибка всплывала только при выполнении этого кода, больше я её не видел.