ACCESS "зависает" или "умирает" при удалении ссылки на объект Set obj= Nothing. Если объектная переменная была описана с использованием ключевого слова WithEvents.

Например:
'Класс clGluck
Private WithEvents frm As Form
'если Private frm As Form то все OK
Public Sub Init(frmMonitor As Form)
Set frm = frmToMonitor
End Sub

'В модуле формы
Dim oGl As clGluck

Private Sub Form_Open(Cancel As Integer)
Set oGl = New clGluck
oGl.Init Me
End Sub

Private Sub Form_Close() 
Set oGl = Nothing ' Здесь MSA "падает" End Sub Не использовать явного удаления ссылки на объект Set obj= Nothing, по крайней мере в подобных ситуациях. 
Пусть Access сам собирает мусор

• Обратиться в "Интерфейс" за дополнительной информацией/по вопросу приобретения продуктов
• Подписаться на рассылку "Программирование на Microsoft Access"