agan,, ane mau tanya,, cara baca koding d vb.6 ini bagaimana ya gan,, ane masih bingung,,,

Private Sub tampil_tabel()
On Error Resume Next
Dim tampil%
tampil = 1
LVWaktu.ListItems.Clear
Dim list As ListItem
Set rs = conn.Execute("select * from waktu order by id_waktu")
If Not rs.EOF Then
Do While Not rs.EOF
With rs
Set list = LVWaktu.ListItems.Add(, , tampil)
list.SubItems(1) = !id_waktu
list.SubItems(2) = !Waktu
list.SubItems(3) = !hari
list.SubItems(4) = !jam_ke
rs.MoveNext
End With
tampil = tampil + 1
Loop
End If
End Sub


trimakasih gan