Private Sub btn_Exit_Click()
On Error GoTo Err_btn_Exit_Click
If Me.Dirty Then Me.Dirty = False
[B][COLOR="Red"]BackupCopy[/COLOR][/B]
DoCmd.Quit
Exit_btn_Exit_Click:
Exit Sub
Err_btn_Exit_Click:
MsgBox Err.Description
Resume Exit_btn_Exit_Click
End Sub