[Programmer-VB] Munculkan data secara continue

[Chandra Lintong]

Teman2 semua mohon bantuannya...

Maaf kalo masalah ini sudah pernah di bahas...

Saya punya 34 record nama orang, saya tampilkan di list view dengan perintah :

lvData.ListItems.Clear
Set rsCari = New ADODB.Recordset
With rsCari
    .ActiveConnection = cnAcc
    .Source = "Select * from Perserta" & _
              " where Kelas like '" & lblKelas.Caption & "'" & _
              " and shift like '" & lblShift.Caption & "'" & _
              " and Poin1 not like '" & "0" & "'" & _
              " Order by result, poin2"
    .CursorType = adOpenKeyset
    .LockType = adLockOptimistic
    .Open
End With
    If rsCari.RecordCount > 0 Then
    lblUrut.Caption = 0
       rsCari.MoveFirst
       While Not rsCari.EOF
          Set lv = lvData.ListItems.Add
          lv.Text = rsCari!ID
          lv.ListSubItems.Add , , lblUrut.Caption + 1 'Nambahan nomor urut
          lv.ListSubItems.Add , , rsCari!NamaPeserta
          lv.ListSubItems.Add , , rsCari!Poin1
          lv.ListSubItems.Add , , rsCari!Poin2
          lv.ListSubItems.Add , , rsCari!result
          lblUrut.Caption = lblUrut + 1 'Nomor Urut
          rsCari.MoveNext
       Wend
    End If

Nah saya punya rencana untuk awalnya hanya menampilkan 10 record di list view, 
setelah 15 detik record 11 sampai 20 akan muncul menggantikan record 1 - 10, 
selanjutnya record 21 sampai 30 dan terakhir 31 sampai 34.

saya bingung nih.. saya sudah coba pake timer tapi belum berhasil untuk merubah 
recordnya.

Mohon bantuannya dari teman2.

Thank's
Chandra