Sub MACRO_GRABAR_SALIR
X = MsgBox("�Esta seguro que desea grabar y salir?", vbYesNo + vbQuestion,
"Aviso!!!")
If X = vbYes Then
'Graba todos los cambios en la BD
[Link]
'Finaliza o Cierra la BD
[Link]
End If
End Sub
-----------------------------------------------------------------------------------
--------------------------