ni,mudah mudahan bisa membantu
Sub RefresData()
Dim RsSiswa As New ADODB.Recordset
Dim lstView As ListItem
StrSQL = "SELECT * from Siswa order by NIS"
Set Rs = Conn.Execute(StrSQL)
lstSiswa.ListItems.Clear
Do While Not Rs.EOF
Set lstView = lstSiswa.ListItems.Add(Text:=Rs("NIS"))
lstView.SubItems(1) = "" & Rs("NAMA")
lstView.SubItems(2) = "" & Rs("Alamat")
lstView.SubItems(3) = "" & Rs("NoTelp")
lstView.SubItems(4) = "" & Rs("Jekel")
lstView.SubItems(5) = "" & Rs("TempatLahir")
lstView.SubItems(6) = "" & Rs("tGLLAHIR")
lstView.SubItems(7) = "" & UCase(Rs("Kelas"))
lblJumlah.Caption = lstSiswa.ListItems.Count
Rs.MoveNext
Loop
Exit Sub
End Sub
