dao and flexgrid,can it be done?

hai..
i'm using a dao syntax to display data from database into flexgrid.
i'm using the .getrows function
the problem is that the data appear in the flexgrid is limited to only 500 only...
how can this be solved?

Public Sub AssignData(argFlexGrid As MSFlexGrid, argRS As Recordset)
'This procedure is used to Assign the Data in the given recordset
'to the given FlexGrid
On Error GoTo ErrHandler
Dim FormatString As String 'Stores the FormatString
Dim i As Long 'Loop Variable
Dim j As Long 'Loop Variable
Dim MaxFldValLen As Long 'Stores the Maximum Field Value Length, Used for Automatic Resizing

'Moving The Recordset to the First
argRS.GetRows
argRS.MoveFirst

'Checking for Empty Recordset
If argRS.RecordCount = 0 Or IsEmpty(argRS) Then Exit Sub

'setting the number of rows
'the total rows of FlexGrid includes the FixedRows also
'So argFlexGrid.Rows=No. Of Records->(argRs.RecordCount) + argrs.FixedRows->(1)
argFlexGrid.Rows = argRS.RecordCount + 1

'Setting the current row
argFlexGrid.Row = 1

'checking for FixedCols
'if FixedCols is 1 then S.No. will be automatically generated
'if FixedCols is 0 then S.No. will Not be generated
If argFlexGrid.FixedCols = 1 Then

'If FlexGrid's FixedCols is 1 then data should be assigned from the second column is that argFlexGrid.col=1
argFlexGrid.Col = 1