Application VisualBasic Script

Private Sub cmdUndo_Click()
    'Undo changes
    DoCmd.RunCommand acCmdUndo
End Sub