acSysUpdateMeter

With Rs

If .Eof Then

Exit Sub

Else

Intret=SysCmd(acSysCmdInitmeter,strmsg,100)

End If

Do Until .Eof

If .PercentPosition<>0 Then

Intret=SysCmd( acSysCmdUpdateMeter, .PercentPosition)

End If 

.MoveNext

Loop

End With

intRet =SysCmd(acSysCmdRemoveMeter) rstEmployees.Close 

varReturn = Syscmd(acsysInitMeter,[ProgressBarName],[TotalCount])

varReturn = SysCmd(acsysUpdateMeter,[ProgressBarName], [CurrentCount])
varReturn = SysCmd(acsysClearStatus)

acsyscmdaction