The below should do what it is you are looking for. Visually the progress bar will also move accordingly.
Dim tempRN AS Long, tempRT AS Long
tempRN= 1
'Get the total number of records that you need to work with and assign to tempRT
Application.SysCmd acSysCmdInitMeter, "TOTAL RECORDS " & tempRT & ", PROCESSING: " & tempRN, tempRT
Do While .......
'Do whatever it is you need to do
tempRN = tempRN + 1
Application.SysCmd acSysCmdRemoveMeter
Application.SysCmd acSysCmdInitMeter, "TOTAL RECORD COUNT " & tempRT & ", PROCESSING: " & tempRN, tempRT
Application.SysCmd acSysCmdUpdateMeter, tempRN
Loop
Application.SysCmd acSysCmdRemoveMeter