[indoprog-vb] Listview

[sunardi_kss]

mohon pencerahan pada pakar vb mengenai listview.
saya menggunakan total record 20 ribu yang akan ditampilkan pada
listview tapi setelah dirun tampilnya lama sekali. apakah ada yang tau
bagaimana agar tampilnya lebih cepat.
script yang saya pergunakan seperti ini :
Sub tampil_grid()
With ListView
    .ListItems.Clear
    Do Until rshutang.EOF
        i = i + 1
        .ListItems.Add i, , rshutang!Ap_No
        With .ListItems(i)
            .SubItems(1) = rshutang!Pr_no
            .SubItems(2) = rshutang!Date_Pr
            .SubItems(3) = rshutang!Due_Date
            .SubItems(4) = rshutang!Inv_No
            .SubItems(5) = rshutang!Suppl_No
            .SubItems(6) = rshutang!SUPPL_NAME
            .SubItems(7) = Format(rshutang!Saldo_Awal, "#,###0")
            .SubItems(8) = Format(rshutang!Saldo_Akhir, "#,###0")
            .SubItems(9) = rshutang!Acct_No
        End With
        rshutang.MoveNext
    Loop
End With
End Sub

terima kasih atas perhatiannya.