[AccessD] Queries Progress Bar

Group

...I have the following in the FormLoad event:

    DoCmd.SetWarnings False
    tblExhibitorWebClear
    DoCmd.OpenQuery "qryExhByShowCurrentAppend"
    DoCmd.OpenQuery "qryExhByShowPastAppend"
    DoCmd.SetWarnings True

...that all happens in the background
...in the foreground I want to display a progress bar that shows the user 
the progress during the entire process which can take a couple of minutes.
...don't want to use the vb ocx if possible, but would if necessary.
...don't want to use the progress meter in the status bar
...accuracy isn't necessary ...just a reasonable approximation.
...tried using a timer and labels but the queries always run before the 
timer starts
...any ideas or samples much appreciated

William