ник: Lukas
1. Alex, а зачем вы сохраняете данные из формы в таблицу запросом, и тут-же добываете их рекордсетом из таблицы в функции?
2. Функцию CurrentPath() можно заменить на свойство CurrentProject.Path.
3. Все функции, работающие с формой переместить из общего модуля Global в модуль класса формы.
Это на беглый взгляд.