coba query kmu diganti dengan ini... "select top 2 * from ( select top 4 * from tbl_kartu order by no_kartu desc) as x order by no_kartu asc" semoga membantu
----- Original Message ---- From: Chandra Lintong <[EMAIL PROTECTED]> To: [email protected] Sent: Monday, June 9, 2008 8:49:48 PM Subject: [Programmer-VB] Munculkan data secara continue 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
