Adding a progress bar while the flexgrid is populating

[Pradeep1210]

Are u using a server side cursor?? The code above will work only for client side cursors. For serverside cursors, the values of recordcount and absoluteposition are returned wrong.

Secondly, ain't these two statements the same (dglienna)?
ProgressBar1.Value = int(rsmain.AbsolutePosition * 100 / rsmain.RecordCount)

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

[Heprox]

How would I tell whether or not I'm using a server side cursor?

[dglienna]

They were reversed.

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

[Pradeep1210]

In the debug window check "?rs.CursorLocation= adUseClient" is true or "?rs.CursorLocation= adUseServer" is true. Many a times if you set the cursor location from code but is not supported by the provider, they are reset by the provider.
In case it is a server side cursor, don't use absoluteposition property. Instead keep a counter in the loop and use that.
Sample Code:

Dim nCurrRec as long
ProgressBar1.Min = 0
ProgressBar1.Max = 100
 
'Your Code
'
'
nCurrRec = 0
Do While Not rsmain.EOF()
    'Your Code
    ' 
    '
    nCurrRec =nCurrRec +1
    ProgressBar1.Value = int(nCurrRec  * 100 / rsmain.RecordCount)
Loop

Edit: This code would work, whichever cursor you are working