Private Sub populate_studentLvw()
studentLvw.Items.clear()
con.Open()
cmd = New SqlCommand("select * FROM Students", con)
Using dr As SqlDataReader = cmd.ExecuteReader
While dr.Read
Dim li As New ListViewItem()
li.Text = Convert.ToString(dr.Item("student_pk"))
li.SubItems.Add(Convert.ToString(dr.Item("student_fullname")))
li.SubItems.Add(Convert.ToString(dr.Item("student_branch")))
li.SubItems.Add(Convert.ToString(dr.Item("student_scholarship")))
studentLvw.Items.Add(li)
End While
End Using
cmd.Dispose()
con.Close()