Report Control slow time data load

BEFORE I USING A LISTVIEW IN VB6 FOR SHOWING AN INFORMATION, APPROXIMABILITY 13K ROWS, AND THE LOAD OF THIS DATA IS SO FAST, BUT NOW I IMPLEMENT A REPORT CONTROL AND THE TIME OF DATA LOAD DOWN CONSIDERABLY. ANYBODY KNOW HOW TO ACCELERATE THIS LOAD?

PART OF THE CODE
Public Sub CargaDatos()
On Error GoTo errSub
Dim Record As ReportRecord
.
.
.
Set Record = wnd.Records.Add()
            Record.AddItem Trim(RsGenerico!co_codigo)
            mensaje.ZOrder (0)
            mensaje.mensaje = "Generando lista para Activo " & RsGenerico!co_codigo
            mensaje.Refresh
            For X = 1 To RsGenerico.Fields.Count - 1
                If Not IsNull(RsGenerico.Fields(X).Value) Then
                    Select Case X
                        Case 2, 3, 4
                            Record.AddItem Format(RsGenerico.Fields(X).Value, "dd/MM/yyyy")
                        Case 12
                            Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000")  'cFormatoNumero)
                            va_reposicion = va_reposicion + RsGenerico.Fields(X).Value
                            'lbl_va_reposicion.Caption = Format(va_reposicion, cFormatoNumero)
                            lbl_par_va_reposicion.Caption = Format(va_reposicion, cFormatoNumero)
                        Case 13
                            Record.AddItem Format(RsGenerico.Fields(X).Value, "##0")
                        Case 15
                            Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000")  'cFormatoNumero)
                            va_cuotadep = va_cuotadep + RsGenerico.Fields(X).Value
                            'lbl_va_depacum.Caption = Format(va_cuotadep, cFormatoNumero)
                            lbl_par_va_depacum.Caption = Format(va_cuotadep, cFormatoNumero)
                        Case 16
                            Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000")  'cFormatoNumero)
                            va_depacum = va_depacum + RsGenerico.Fields(X).Value
                            'lbl_va_netorep.Caption = Format(va_depacum, cFormatoNumero)
                            lbl_par_va_netorep.Caption = Format(va_depacum, cFormatoNumero)
                        Case 17
                            Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000")  'cFormatoNumero)
                            va_netorep = va_netorep + RsGenerico.Fields(X).Value
                            'lbl_va_cuotadep.Caption = Format(va_netorep, cFormatoNumero)
                            lbl_par_va_cuotadep.Caption = Format(va_netorep, cFormatoNumero)
                        Case 18
                            Record.AddItem Format(RsGenerico.Fields(X).Value, "##0")
                        Case 19, 23
                            Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000")  'cFormatoNumero)
                        Case 20, 24
                            Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000")  'cFormatoNumero)
                        Case 21, 25
                            Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000")  'cFormatoNumero)
                        Case 22, 26
                            Record.AddItem Format(RsGenerico.Fields(X).Value, "###,#0.0000")  'cFormatoNumero)
                        Case Else
                            Record.AddItem Trim(RsGenerico.Fields(X).Value)
                    End Select
                Else
                    Record.AddItem ""
                End If
            Next X