how to compact and close completely out of access the VB command compact and close brings you back to the default access page

not sure what you're asking, but how about:application.compactrepair(options...)
docmd.quit????