Case vbKeyF2 
    Form_Unload (1)
    .....

Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = 1
    CmdCerrar_Click
End Sub

Private Sub CmdCerrar_Click()
    Form_Unload (1)
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Data1.UpdateControls 
    Unload Me
End Sub