Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
If UnloadMode = 0 Then
MsgBox "aca pon el codigo que guarda tus datos"
End If
End Sub
If UnloadMode = 0 Then
MsgBox "aca pon el codigo que guarda tus datos"
End If
End Sub