Dim srcProject 
Dim dstProject
Dim dbe
	On Error resume next
	srcProject = "C:\Users\Katie.Aguilar\Downloads\cbr_test\cbr test.gpj"
	dstProject = "C:\Users\Katie.Aguilar\Downloads\cbr_test\new cbr test.gpj"
	' ACE DAO Provider - JET Provider causes Tables to be deleted
	Set dbe = CreateObject("DAO.DBEngine.120") 
	if err.Number <> 0 then
		MsgBox("Error creating ACE Database Engine (" & CStr(err.Number) & ") " & err.Description)
	else
		'dbLangGeneral ";LANGID=0x0409;CP=1252;COUNTRY=0"
		'dbVersion40 = 64
		dbe.CompactDatabase srcProject, dstProject, ";LANGID=0x0409;CP=1252;COUNTRY=0", 64	
		if err.Number <> 0 then
			MsgBox("Error Saving database (" & CStr(err.Number) & ") " & err.Description)
		
		end if
	end if