I have in rset 15.878 lines of rset.
But i see to fill the listview the time is very long...
Is possible to speed up code???

Code:
Sub FILL_LISTVIEW_2()
'SI
    Dim TOT As Double, TOT1 As Double, CONTA_RECORD As Long, TOT2 As Double
    Dim X

    On Error GoTo errore

    CONTA_REC = Empty

    strSQL1 = "SELECT * FROM DATI WHERE PROVA16 = '" & Left(Me.COMBO_AREA.Text, 4) & "' ORDER BY PROVA2"
    Set RSSQLD = CNSQL.Execute(strSQL1)

    While Not RSSQLD.EOF
        CONTA_REC = CONTA_REC + 1
        RSSQLD.MoveNext
    Wend
    
    RIGA = Empty

    Me.ProgressBar.Visible = True
    Me.ProgressBar.value = Empty

    Me.ListView.ListItems.Clear

    With RSSQLD

        Me.ListView.Refresh

        RSSQLD.MoveFirst
        While Not .EOF

            Set X = ListView.ListItems.Add(, , RSSQLD.GetRows!PROVA2)
            X.SubItems(1) = .Fields!PROVA1
            X.SubItems(2) = .Fields!PROVA3
            X.SubItems(3) = .Fields!PROVA9
            X.SubItems(4) = .Fields!PROVA11
            X.SubItems(5) = .Fields!PROVA12

            If IsNull(.Fields!PROVA17) Then
                X.SubItems(6) = Format(0, "#,##0.00")
                'Debug.Print .Fields!PROVA17
            Else
                X.SubItems(6) = Format(.Fields!PROVA17, "#,##0.00")
                TOT = TOT + X.SubItems(6)
            End If

            If IsNull(.Fields!PROVA13) Then
                X.SubItems(7) = Format(0, "#,##0.00")
            Else
                X.SubItems(7) = Format(.Fields!PROVA13, "#,##0.00")
                TOT1 = TOT1 + X.SubItems(7)
            End If

            If IsNull(.Fields!PROVA14) Then
                X.SubItems(8) = Format(0, "#,##0.00")
                'Debug.Print .Fields!PROVA14
            Else
                X.SubItems(8) = Format(.Fields!PROVA14, "#,##0.00")
                TOT2 = TOT2 + X.SubItems(8)
            End If

            If Not IsNull(.Fields!PROVA18) Then
                X.SubItems(9) = Format(.Fields!PROVA18, "#,##0")
            Else
                X.SubItems(9) = Format(0, "#,##0")
            End If

            RIGA = RIGA + 1

            .MoveNext

            'DoEvents
            Me.ProgressBar.value = (RIGA / CONTA_REC) * 100

        Wend

        Me.ProgressBar.Visible = False

    End With

    Me.Label4.Caption = Format(TOT1, "#,##0.00")
    Me.Label9.Caption = Format(TOT, "#,##0.00")
    Me.Label14.Caption = Format(TOT2, "#,##0.00")
    Me.Label6.Caption = Format(ListView.ListItems.Count, "#,##0")

    Exit Sub

errore:
    MsgBox "Errore Numero: " & CStr(Err.Number) & vbCrLf & _
           "Descrizione: " & Err.Description & vbCrLf & _
           "Sorgente dell'Errore: " & Err.Source

    Err.Clear

End Sub