Adding a progress bar while the flexgrid is populating

[Heprox]

This code:

ProgressBar1.Min = 0
ProgressBar1.Max = 100

'Your Code
'
'

Do While Not rsmain.EOF()
    'Your Code
    ' 
    '
    ProgressBar1.Value = int(rsmain.AbsolutePosition * 100 / rsmain.RecordCount)
Loop

...worked perfectly for what I wanted but I keep getting errors (Invalid property value) when the recordset is complete? When the last record is populated into the grid the error handler fires? The debugger comes back on the:

ProgressBar1.Value = int(rsmain.AbsolutePosition * 100 / rsmain.RecordCount)