Salve,


HO scritto questo codice per inserire i record da un dtabase ad una listview, però quando i record sono qualche migliaia il codice è molto molto lento...

codice:
        Dim segno As String
        
        Do While Not Adodcl1.Recordset.EOF
            Set li = .ListItems.Add(, , String(7 - Len(Adodcl1.Recordset!id), "0") & Adodcl1.Recordset!id)
            li.SubItems(1) = Adodcl1.Recordset!Data
            li.SubItems(2) = Adodcl1.Recordset!fattura
            li.SubItems(3) = Adodcl1.Recordset!motivo

            
            If lingStampa = 1 Then
                Select Case Adodcl1.Recordset!tipologia
                    Case "IB"
                        li.SubItems(5) = "Ent. Banca"
                        segno = "+"
                    Case "IC"
                        li.SubItems(5) = "Ent. Cassa"
                        segno = "+"
                    Case "OB"
                        li.SubItems(5) = "Usc. Banca"
                        segno = "-"
                    Case Else
                        li.SubItems(5) = "Usc. Cassa"
                        segno = "-"
                End Select
            Else
                Select Case Adodcl1.Recordset!tipologia
                    Case "IB"
                        li.SubItems(5) = "In Bank"
                        segno = "+"
                    Case "IC"
                        li.SubItems(5) = "In Cash"
                        segno = "+"
                    Case "OB"
                        li.SubItems(5) = "Out Bank"
                        segno = "-"
                    Case Else
                        li.SubItems(5) = "Out Cash"
                        segno = "-"
                End Select
            End If
            
            li.SubItems(4) = segno & Format$(Adodcl1.Recordset!saldo, "#,0.#0")
            
            Adodcl1.Recordset.MoveNext
        Loop
        
    End With
Qualcuno può darmi una mano ad ottimizzare il codice per farlo diventare più veloce?