Below is a snippet of the code I am using.  The even that fires all of this
code is a button click.

Do While Not rsHolding.EOF
   'A bunch of code here using recordsets to update and insert records.

    recCounter = recCounter + 1
    If recCounter = incCounter Then
           strControl = box & boxCounter
           Me.Controls(strControl).BackColor = vbBlue
           incCounter = incCounter + 3
           boxCounter = boxCounter + 1
    End If
Loop

msgbox "Import complete"

The boxes that are sopose to turn blue as the loop process don't update
until the above msgbox comes up.  The code in that if statement just checks
if the number of records processed equals 3, and then fills in one of the
boxes on the screen for an progress bar effect.

Hopefully this helps a little more.