Если открываю форму (Form1.Show 1) в exe-шнике, то выдаётся ошибка - VB

Формулировка задачи:

Встретился с такой проблемой: Если открываю форму (Form1.Show 1) в exe-шнике, то выдаётся ошибка (по-мойму 9 RunTime Error, но могу ошибаться). Если открываю в VB (на плей нажимаю) всё работает так как должно. На форму я передаю текст из mdb файла

Решение задачи: «Если открываю форму (Form1.Show 1) в exe-шнике, то выдаётся ошибка»

textual
                            Листинг программы 
                        
                            Set work = OpenDatabase(way) 'way - путь к файлу .mdb 
Set rec = work.OpenRecordset('Г‘ГЄГ«Г*Г¤')