You might try using either of these two methods. They work for me
depending on what I am trying to do in the program.

Place this on the line following your query.

Application.Wait Now + TimeSerial(0, 0, 5) ' Give the program time
to run before continuing. (Hours,minutes, seconds)if I remember
correctly.

Program will wait  for the requested time. If time for the query
varies you may have better luck with the following:

MsgBox (" The Query is completed, Press Enter to continue")

Program will stop until you press enter.