Ошибка появляется в этой строке: Set App ... Запуск Access 2003 и попытка открыть форму в другой базе данных. Я делал это раньше, но теперь это не работает. Заранее спасибо ...
Function OpenDB(DatabasePath As String) As Access.Application
Dim app As Access.Application
Set app = New Access.Application
app.OpenCurrentDatabase DatabasePath
Set OpenDB = app
End Function