How to optimize ListView control to work faster?

Do While dr.Read
                item1 = ListView1.Items.Add(dr("ID"))
                With item1
                    .SubItems.Add(dr("row1"))
                    .SubItems.Add(dr("row2"))
                    .SubItems.Add(dr("row3"))
                    .SubItems.Add(dr("row4"))
                    .SubItems.Add(dr("row5"))
                    .SubItems.Add(dr("row6"))
                    .SubItems.Add(dr("row7"))
                    .SubItems.Add(dr("row8"))
                    .SubItems.Add(dr("row9"))
                End With
            Loop