Visual Basic - Problemas con Form_Unload()

Hola a todos.
Tengo un problema con el evento Form_Unload().

Vereis, en un formulario tengo varios campos enlazados a un comando del DataEnvironment (rsTabla). En el botón \"Salir\" tengo lo siguiente:

Private Sub cmdSalir_Click()
Unload Me
End Sub

Y en el evento Unload:

Private Sub Form_Unload(Cancel As Integer)
Dim ok As Integer
ok = MsgBox(\"¿Guardar cambios?\",vbOKCancel)
If ok = 1 Then
DataEnvironment.rsTabla.Update
End If
End Sub

Pues bien, si se hace clic sobre el botón \"Salir\" funciona perfectamente, es decir se actualiza la tabla, pero si se cierra el formulario desde el \"aspa\" (_| |X) de la barra de títulos aparece el msgbox pero no actualiza. A q se debe?

Gracias.

Yo tengo el siguiente código y me responde perfectamente, utilizando Case en lugar de if. Adaptalo a tus necesidades y a ver si te va bien:
en el Form_Unload
Dim respuesta
respuesta = MsgBox("VA A SALIR DEL PROGRAMA. ¿ESTA SEGURO DE CERRAR LA APLICACION?", 20, " SALIR DE GESTION CLIENTES")
Select Case respuesta
Case 6
'realizo ciertas acciones y me salgo
End
Case 7
Cancel = 1
Exit Sub
End Select
Cambio el valor de cancel para no salirme
Espero que te sirva. Saludos.