How can I get the code to pause long enough for the user to change criteria in an access query before the next line of code runs?

' Opens BestTrafficBuildingClass JB query in Design view
DoCmd.OpenQuery "BestTrafficBuildingClass JB", acDesign, acEdit

' Basic message to user
MsgBox "Please change the event code to reflect the current period.", vbInformation, "Change Event Code"

' How do I pause the code here so the user can change the event code before the remaining code runs?


' Opens BestTrafficBuildingClass KY query in Design view
DoCmd.OpenQuery "BestTrafficBuildingClass KY", acDesign, acEdit


Thanks for any ideas!!!!