Query progress bar code

[mike wild]

Any help would be great

Here's what i have so far

counter = 5
DoCmd.OpenQuery "Append DJ", acNormal, acReadOnly
smallbar.Width = Bigbar.Width / counter
Me.Repaint
Me.smallbar.Width = 0
Me.Repaint

DoCmd.OpenForm "thanks", acNormal, "", "", , acNormal
'DoCmd.RunSQL "DELETE * FROM Reports"
DoCmd.ShowAllRecords
Me.Refresh

The bold part is where i believe i am going wrong.
It is used to make a progress bar during the duration of the query is active.

Even getting it to count down from 5 seconds will be fine