Private Sub btnClose_Click()
On Error GoTo Err_Label

    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)

    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
    Dim lnkRef As LinkReferences
    Set lnkRef = New LinkReferences
    With lnkRef
        .LogMessage "Exiting Application before Unlink"
        .CheckReferences
        .UnlinkReference "ADOX"
        .UnlinkReference "ADODB"
        .LogMessage vbNewLine & "Exiting Application after Unlink"
        .CheckReferences
    End With
    Application.Quit

End Sub