report control_ADO

hi.

Error Message in MFC42.DLL Apprears When update Database to Report Control using ADO,
Small DB can update to Report control but Big DB  (16,000 Records) Can't update.

Private db As New ADODB.Connection
Private rs As New ADODB.Recordset
Const COLUMN_PART = 0
Const COLUMN_CODE = 1
Const COLUMN_PAPER_SIZE = 2
Const COLUMN_SIZE = 3
Const COLUMN_PRINTER = 4
Private Sub Form_Load()
sSql = "SELECT * FROM sheet2 ;"
db.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\any1.mdb;Persist Security Info=False"
rs.Open sSql, db, adOpenStatic, adLockReadOnly
   While Not rs.EOF
      rs.MoveNext
   Wend
   If rs.RecordCount = 0 Then
      Set db = Nothing
   Set rs = Nothing
      RC1.Redraw
    Exit Sub
   End If
rs.MoveFirst
    With RC1.Columns
        .Add COLUMN_PART, "part1", 50, True
        .Add COLUMN_CODE, "part2", 50, True
        .Add COLUMN_PAPER_SIZE, "part3", 50, True
        .Add COLUMN_SIZE, "part4", 50, True
        .Add COLUMN_PRINTER, "part5", 50, True
    End With
Dim i As Long, Record As ReportRecord, Item As ReportRecordItem, str As String
i = 0
While Not rs.EOF
Set Record = RC1.Records.Add
    Set Item = Record.AddItem(i)
        Item.Value = rs(1)
        Item.Icon = 0
    Set Item = Record.AddItem(i)
        Item.Value = rs(2)
        Item.Icon = 1
    Set Item = Record.AddItem(i)
        Item.Value = rs(3)
    Set Item = Record.AddItem(i)
        Item.Value = rs(4)
    Set Item = Record.AddItem(i)
        Item.Value = rs(5)
        rs.MoveNext
    i = i + 1
Wend
    RC1.SetImageList Me.ImageList1
    RC1.PaintManager.ColumnStyle = xtpColumnFlat
    RC1.Populate
End Sub