Question 1

Do

MappointObject.ActiveMap.Saved = True

Before

MappointObject.Quit()

Where MappointObject = CreateObject("MapPoint.Application")

Question 2

Just dont save the changes, see question 1, and then open a fresh new map or reload a previously saved one