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


a la mejor es solo con ejemplos sencillos
pero necesito checarle mas a fondo por que hasta ahora no he podido 