...
Private WithEvents ArcF As Form
...
Public Property Get ArcForm() As Form
    Set ArcForm = ArcF
End Property

Public Property Set ArcForm(ByVal ArcFvNewValue As Form)
    Set ArcF = ArcFvNewValue
If ArcFvNewValue Is Nothing Then Exit Property
On Error Resume Next
    ArcF.AfterUpdate = "[Event Procedure]"
    If With_T Then ArcF.BeforeUpdate = "[Event Procedure]"
    
    ArcF.OnDelete = "[Event Procedure]"
    If With_T Then ArcF.BeforeDelConfirm = "[Event Procedure]"
    ArcF.AfterDelConfirm = "[Event Procedure]"
End Property
...
Sub Terminate()
  SetSomeThing=Nothing '% 0 ) - некий список обнулений ссылок и очистки памяти
End Sub

Private Sub Class_Terminate()
  Terminate
End Sub
...

Private TARC As New T_ArcF

Private Sub Form_Open(Cancel As Integer)
    Set TARC.ArcForm = Me
    TARC.sTable = "Factura"
    vKey( 0 ) = "Code": vKey( 1 ) = "Code"
    TARC.fKeys.Add (vKey)
End Sub

'Private Sub Form_Close()
    'Set TARC = Nothing 'или
    'TARC.Terminate
    'и то и другое вызывает системную ошибку акеса
    'уже ПО выходу из процедуры Form_Close
    'т.е. не в деструкторах, а в механизмах аксесса
'End Sub

Исключение в приложении:
        Прил.: msaccopt.exe (pid= 1012 )
        Время:  24 . 05 . 2004  @  13 : 15 : 58 . 765 
        Номер: c0000005 (нарушение прав доступа)
...

Private Sub ClearMem() 'чистим, что можно, не вызывая сбоя аксеса
    Erase pClon
    Set fKeys = Nothing
End Sub

Private Sub ArcF_Close()
    ClearMem
    Set ArcF = Nothing '!!! работает !!! только !!! тут
                       '_без сваливания аксеса_
                       'в Nothing выставляет (смотрел)
                       'еще б и класс потерминейтить теперь :( 
End Sub

Private Sub ArcF_Close()
    ClearMem
    Set ArcF = Nothing 
End Sub

Private Sub Form_Close()
    Set TARC.ArcForm = Nothing 
End Sub