delay code from executing while previously ordered actions are still being executed

[etmanage]

This question is an outgrowth of my previous question regarding why a certain textbox wasn't updating. What happens is an addquery is called to add a record to a table and then a textbox (called Total) is set equal to a subtotal textbox (called subtotal2) calculated off that table. The problem is, the Total box reflects the Total before the new item was added. If I then manually tell it to update again a moment later it gives the correct value. So I need a code that will pause execution for a few milliseconds after the addquery is called but before the code Me.Total = Me.Subtotal2 is executed.

Here is the code:

    stDocName = "AddTransaction"
    DoCmd.OpenQuery stDocName, acNormal, acEdit
    Me.OrderSubform.Requery
' Pause is needed here'
    Me.Total = Me.Subtotal2

[etmanage]

I found the solution elsewhere, here it is:

Option Compare Database
 
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
Sub Wait(Sec As Double)
  For i = 1 To Sec * 100
    DoEvents           ' handle events
    Sleep (10)          ' suspend process without CPU-Load
  Next
End Sub

Then where you want to pause you just put

Wait(seconds)  'where seconds is a number