With rstTemp
    .Edit
    !SystPathCopBase = CurrentProject.Path & "\Коп"
    !MaxCop =  10 
    .Update
End With

Public WithEvents frm As Form

Public Property Set Form(Value As Form)
On Error GoTo Err_
    Set frm = Value
    frm.onClose = "[Event Procedure]"
Exit_:
    Exit Property
Err_:
    MsgBox Err.Description
    Resume Exit_
End Property

Private Sub frm_Close()
On Error GoTo Err_
Dim PromptMsg As Integer
    PromptMsg = MsgBox("Вы желаете выйти из программы?", vbYesNo)
    If PromptMsg = vbYes Then
        Close
     Else
' ************************************************
'   А здесь чего написать, чтобы форма не закрывалась?
' End, Exit Sub - все равно закрывается	
' ************************************************
    End If
Exit_:
    Exit Sub
Err_:
    Err.Clear
    Resume Exit_
End Sub