Например:
'Класс 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 сам собирает мусор