how to display data from sql server to msflexgrid with many record, example 3500 rec

[hery]

this is my code

MSFlexGrid1.Clear
On Error Resume Next
Set rs = cn.Execute("SELECT count(*) FROM ENTRY_GAJI_BAGIAN")
If Err.Number <> 0 Then
    MsgBox "Cannot open recordset due to this error: " & Err.Description
    MousePointer = vbDefault
    Exit Sub
End If
If rs(0) > 0 Then
    MSFlexGrid1.Rows = rs(0) + 1
Else
    MSFlexGrid1.Rows = 2
End If


Set rs = cn.Execute("SELECT * FROM ENTRY_GAJI_BAGIAN")
MSFlexGrid1.Cols = rs.Fields.Count + 1
sno = 1

MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "No"
For i = 0 To rs.Fields.Count - 1
    MSFlexGrid1.Col = i + 1
    MSFlexGrid1.Text = rs.Fields(i).Name
    
    Debug.Print rs.Fields(i).Name
    
    'MSFlexGrid1.TextMatrix(i, i + 1) = rs.Fields(i).Name
Next


If rs.EOF = False Then

'Assigning Column names to flexgrid 1st row

   Do While Not rs.EOF
        MSFlexGrid1.Row = sno
        MSFlexGrid1.Col = 0
        MSFlexGrid1.Text = sno
        For i = 0 To rs.Fields.Count - 1
            MSFlexGrid1.Col = i + 1
            MSFlexGrid1.Text = IIf(IsNull(rs(i)), "", rs(i))
        Next
        sno = sno + 1
        DoEvents
        rs.MoveNext
    Loop
End If
'MousePointer = vbDefault
   
   
Set rs = Nothing
Set cn = Nothing

but for record 3500 not display, but for record < 3500 display, Why??