from a Macro rather than VBA ?
Ahh ok the code above uses the Access system progress bar (in the statusbar area at the base of the access window) not a form's progress bar.
If you're using a custom control progressbar then you need to set the Min and Max properties and then to make it progress set the value. e.g.
Me.Progress1.Min = 0
Me.Progress1.Max = 10
CurrentDb.execute "Query1"
Me.Progress1 = 1
etc.
You'll find it much easier to do the whole thing using VBA rather than an Access Macro