Public cls as CustomClass

Private Sub Form_Load()

Set cls = New CustomClass
...
...
End Sub

Private Sub Class_Initialize()

    MsgBox "Class_Initialize"

End Sub
Private Sub Class_Terminate()

    MsgBox "Class_Terminate"

End Sub

Option Compare Database
Option Explicit

Public Name As String
Public Guid As String
Public MaxVersion As Double
Public MinVersion As Double
Public Reference As Reference

Public Sub Initialize( _
    sName As String, sGuid As String, _
    dbMaxVersion As Double, dbMinVersion As Double)

    Name = sName
    Guid = sGuid
    MaxVersion = dbMaxVersion
    MinVersion = dbMinVersion
    
End Sub

Option Compare Database
Option Explicit

'Name:         ADODB
'BuiltIn       False
'IsBroken      False
'FullPath:     C:\Program Files\Common Files\System\ado\msado25.tlb
'Version:      2.5
'GUID:         {00000205-0000-0010-8000-00AA006D2EA4}

'Name:         ADOX
'BuiltIn       False
'IsBroken      False
'FullPath:     C:\Program Files\Common Files\System\ado\msadox.dll
'Version:      2.7
'GUID:         {00000600-0000-0010-8000-00AA006D2EA4}

'ADODB  2  8  {2A75196C-D9EB-4129-B803-931327F72D5C}    C:\Program Files\Common Files\System\ado\msado15.dll
'ADODB  2  7  {EF53050B-882E-4776-B643-EDA472E8E3F2}    C:\Program Files\Common Files\System\ado\msado27.tlb
'ADODB  2  6  {00000206-0000-0010-8000-00AA006D2EA4}    C:\Program Files\Common Files\System\ado\msado26.tlb
'ADODB  2  5  {00000205-0000-0010-8000-00AA006D2EA4}    C:\Program Files\Common Files\System\ado\msado25.tlb
'ADODB  2  1  {00000201-0000-0010-8000-00AA006D2EA4}    C:\Program Files\Common Files\System\ado\msado21.tlb
'ADODB  2  0  {00000200-0000-0010-8000-00AA006D2EA4}    C:\Program Files\Common Files\System\ado\msado20.tlb

'ADOX   2  8  {00000600-0000-0010-8000-00AA006D2EA4}    C:\Program Files\Common Files\System\ado\msADOX.dll
'ADOX   2  7  {00000600-0000-0010-8000-00AA006D2EA4}    C:\Program Files\Common Files\System\ado\msADOX.dll

Public WithEvents ResidentForm As Form
Public ReferenceCollection As Collection

Private Sub Class_Initialize()

    MsgBox "Class_Initialize"
    Set ReferenceCollection = New Collection

End Sub

Private Sub Class_Terminate()

    MsgBox "Class_Terminate"
    Dim i As Integer, ref As LinkReference
    For i = ReferenceCollection.Count To  1  Step - 1 
        Set ref = ReferenceCollection.Item(i)
        Set ref.Reference = Nothing
        ReferenceCollection.Remove (i)
    Next i
    Set ReferenceCollection = Nothing

End Sub

Private Sub ResidentForm_Close()

    'MsgBox "ResidentForm_Close"

End Sub

Private Sub ResidentForm_Deactivate()

    'MsgBox "ResidentForm_Deactivate"

End Sub

Public Sub BindToForm(frm As Form)

    Set ResidentForm = frm
    ResidentForm.OnClose = "[Event Procedure]"
    ResidentForm.OnDeactivate = "[Event Procedure]"
    
    Open Application.CurrentProject.Path & "\\" & "Application.Log" For Output As # 1 
    Print # 1 , "Starting Application", Now
    Print # 1 , ""
    Close # 1 

End Sub

Public Function CheckReference( _
    sName As String, Optional iMajor As Integer, Optional iMinor As Integer, _
    Optional sGuid As String, Optional sFullPath As String) As Boolean

    Open Application.CurrentProject.Path & "\\" & "Application.Log" For Append As # 1 
    
    Dim ref As Reference
    For Each ref In Application.References
        If Not ref.IsBroken Then
            If ref.Name = sName Then
                iMajor = ref.Major
                iMinor = ref.Minor
                sGuid = ref.Guid
                sFullPath = ref.FullPath
                Print # 1 , "CheckReference", _
                    ref.Name, ref.Major, ref.Minor, ref.Guid, ref.FullPath
                Print # 1 , "": Close # 1 
                CheckReference = True
                Exit Function
            End If
        End If
    Next ref
    
    CheckReference = False
    Print # 1 , "CheckReference Failed", sName
    Print # 1 , "": Close # 1 
    Exit Function

End Function

Public Function CheckReferences()

    CheckReferences = True
    Open Application.CurrentProject.Path & "\\" & "Application.Log" For Append As # 1 
    
    Dim ref As Reference
    For Each ref In Application.References
        If Not ref.IsBroken Then
            Print # 1 , ref.Name, ref.Major, ref.Minor, ref.Guid, ref.FullPath
        Else
            Print # 1 , "<Broken reference>", ref.Major, ref.Minor, ref.Guid, ""
            CheckReferences = False
        End If
    Next ref
    
    Print # 1 , ""
    Close # 1 

End Function

Public Function LinkReference( _
    sName As String, sGuid As String, _
    dbMaxVersion As Double, Optional dbMinVersion As Double =  0 #) As Double
    
    
    On Error Resume Next
    
    Dim lnkReference As LinkReference
    Set lnkReference = New LinkReference
    lnkReference.Initialize sName, sGuid, dbMaxVersion, dbMinVersion
    
    Open Application.CurrentProject.Path & "\\" & "Application.Log" For Append As # 1 
    Print # 1 , "LinkReference", lnkReference.Name, lnkReference.Guid, "from", dbMaxVersion, "to", dbMinVersion
    
    Dim version As Double, iMajor As Integer, iMinor As Integer
    If dbMinVersion =  0 # Then dbMinVersion = dbMaxVersion
    For version = dbMaxVersion To dbMinVersion Step - 0 . 1 
        iMajor = Int(version)
        iMinor = Int((version - iMajor) *  10  +  0 . 01 )
        Application.References.AddFromGuid lnkReference.Guid, iMajor, iMinor
        DoEvents
        If Err.Number <>  0  Then
            'MsgBox _
                "AddFromGuid" & " " & lnkReference.Name & " " & lnkReference.Guid & _
                " " & iMajor & " " & iMinor & " " & _
                "Error" & " " & Err.Number & " " & Err.Description
            Print # 1 , "AddFromGuid", _
                lnkReference.Name, lnkReference.Guid, _
                iMajor, iMinor, _
                "Error", Err.Number, Err.Description
            Err.Clear
        Else
            Set lnkReference.Reference = Application.References.Item(Application.References.Count)
            ReferenceCollection.Add lnkReference, sName
            'MsgBox _
                "AddFromGuid" & " " & lnkReference.Reference.Name & " " & lnkReference.Reference.Guid & " " & _
                lnkReference.Reference.Major & " " & lnkReference.Reference.Minor & " " & _
                lnkReference.Reference.FullPath
            Print # 1 , "AddFromGuid", _
                lnkReference.Reference.Name, lnkReference.Reference.Guid, _
                lnkReference.Reference.Major, lnkReference.Reference.Minor, _
                lnkReference.Reference.FullPath
            Print # 1 , ""
            Close # 1 
            LinkReference = version
            Exit Function
        End If
    Next version

    'MsgBox _
        "LinkReference Failed" & " " & lnkReference.Name & " " & lnkReference.Guid & " " & _
        lnkReference.MaxVersion & " " & lnkReference.MinVersion
    Print # 1 , "LinkReference Failed"
    Print # 1 , ""
    Close # 1 
    LinkReference = version
    Exit Function

End Function
    
Public Function LinkADODB() As Double

    Dim Name As String, Major As Integer, Minor As Integer, Guid As String, FullPath As String
    Name = "ADODB"
    If CheckReference(Name, Major, Minor, Guid, FullPath) Then
        LinkADODB = Major + Minor /  10 
    Else
        LinkADODB = _
            LinkReference("ADODB", "{2A75196C-D9EB-4129-B803-931327F72D5C}",  3 #,  2 . 8 )
        If LinkADODB =  0 # Then LinkADODB = _
            LinkReference("ADODB", "{EF53050B-882E-4776-B643-EDA472E8E3F2}",  2 . 7 )
        If LinkADODB =  0 # Then LinkADODB = _
            LinkReference("ADODB", "{00000206-0000-0010-8000-00AA006D2EA4}",  2 . 6 ,  2 #)
    End If
    
End Function

Public Function LinkADOX() As Double

    Dim Name As String, Major As Integer, Minor As Integer, Guid As String, FullPath As String
    Name = "ADOX"
    If CheckReference(Name, Major, Minor, Guid, FullPath) Then
        LinkADOX = Major + Minor /  10 
    Else
        LinkADOX = _
            LinkReference("ADOX", "{00000600-0000-0010-8000-00AA006D2EA4}",  3 #,  2 #)
    End If
    
End Function

Option Compare Database
Option Explicit

Public bLinkDataOK As Integer
Dim iTimer As Integer
Dim bCanClose As Boolean

Private Sub Form_Load()

    iTimer =  0 
    bCanClose = False
    Me.btnClose.Visible = True
    Me.btnClose.Enabled = False
    Me.lblReference.ForeColor =  0 
    Me.lblProcess.ForeColor = Me.Section( 0 ).BackColor
    Me.lblReference.Caption = "Âûïîëíÿåòñÿ ïðîâåðêà ñèñòåìíûõ áèáëèîòåê . . ."
    Me.lblProcess.Caption = "Âûïîëíÿåòñÿ ïðîâåðêà òàáëèö äàííûõ . . ."
    
    Set LinkReferencesInstance.lnkRef = New LinkReferences
    lnkRef.BindToForm Me
    
End Sub

Private Sub Form_Timer()
On Error GoTo Err_Label

    Me.TimerInterval =  0 
    Me.lblProcess.ForeColor =  0 
    Me.lblReference.ForeColor =  0 
    Me.lblReference.Caption = "Âûïîëíÿåòñÿ ïðîâåðêà ñèñòåìíûõ áèáëèîòåê . . ."
    Me.Repaint
    
   ' Работает хорошо, но как выйдем из Sub - кирдык экземпляру
    With lnkRef
        .CheckReferences
        .LinkADODB
        .LinkADOX
        .CheckReferences
    End With
    
    Me.lblReference.Caption = "Âûïîëíÿåòñÿ ïðîâåðêà ñèñòåìíûõ áèáëèîòåê. Âûïîëíåíî."
    Me.lblProcess.ForeColor =  0 
    Me.lblProcess.Caption = "Âûïîëíÿåòñÿ ïðîâåðêà òàáëèö äàííûõ . . ."
    If Not CheckLinkTables Then
        Me.btnClose.Enabled = True
        Me.btnClose.Visible = True
        Me.Visible = False
        DoCmd.OpenForm "dlgLinkData", acNormal, , , acFormEdit, acDialog
    Else
        Me.lblProcess.Caption = "Âûïîëíÿåòñÿ ïðîâåðêà òàáëèö äàííûõ. Âûïîëíåíî."
        Me.btnClose.Enabled = True
        Me.btnClose.Visible = True
    End If
    
MsgBox lnkRef.ReferenceCollection.Count
    
    Exit Sub
    
Err_Label:
    If Err.Number <>  2467  Then
        'Ââåäåííîå âûðàæåíèå ñîäåðæèò ññûëêó íà îáúåêò,
        'êîòîðûé çàêðûò èëè íå ñóùåñòâóåò.
        MsgBox Err.Description
    End If
    Resume Next

End Sub

Private Sub btnClose_Click()
On Error GoTo Err_Label

MsgBox "btnClose"
If lnkRef Is Nothing Then
    MsgBox "Nothing"
Else
    MsgBox lnkRef.ReferenceCollection.Count
End If
    
    If bCanClose Then
        DoCmd.Close acForm, Me.Name
    Else
        Me.Visible = False
    End If

EXIT_LABEL:
    Exit Sub

Err_Label:
    MsgBox Err.Description
    Resume EXIT_LABEL
    
End Sub

Private Sub Form_Unload(Cancel As Integer)

MsgBox "dlgStartup Unload"
If lnkRef Is Nothing Then
    MsgBox "Nothing"
Else
    MsgBox lnkRef.ReferenceCollection.Count
End If
    
    If Not bCanClose Then
        Cancel = True
        bCanClose = True
        Beep
        Me.lblReference.Caption = "Äî ñêîðîãî ñâèäàíèÿ !"
        Me.lblProcess.Caption = ""
        Me.btnClose.Caption = "Çàêîí÷èòü ðàáîòó ñ ñèñòåìîé"
        Me.Visible = True
        Exit Sub
    End If
    
    bCanClose = True
    Cancel = False
    
If lnkRef Is Nothing Then
    MsgBox "Nothing"
Else
    lnkRef.CheckReferences
End If

    'Вот это место не могу переделать на использование класса, так как к этому моменту он уже Nothing
    Open Application.CurrentProject.Path & "\\" & "Application.Log.Close" For Output As # 1 
    Print # 1 , "Exiting Application", Now
    Print # 1 , ""
    Dim ref As Reference
    For Each ref In Application.References
        If Not ref.IsBroken Then
            Print # 1 , ref.Name, ref.Major, ref.Minor, ref.Guid, ref.FullPath
        Else
            Print # 1 , "<Broken reference>", ref.Major, ref.Minor, ref.Guid, ""
        End If
    Next ref
    
    Print # 1 , ""
    Print # 1 , "Removing", Application.References!ADODB.Name, Application.References!ADODB.Guid
    Print # 1 , "Removing", Application.References!ADOX.Name, Application.References!ADOX.Guid
    
    Beep
    Application.References.Remove Application.References!ADODB
    DoEvents
    Beep
    Application.References.Remove Application.References!ADOX
    DoEvents
    Beep
    
    Print # 1 , ""
    For Each ref In Application.References
        If Not ref.IsBroken Then
            Print # 1 , ref.Name, ref.Major, ref.Minor, ref.Guid, ref.FullPath
        Else
            Print # 1 , "<Broken reference>", ref.Major, ref.Minor, ref.Guid, ""
        End If
    Next ref
    Close # 1 
    
    'Application.Quit

End Sub

Option Compare Database
Option Explicit

Public lnkRef As LinkReferences