Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   If Not (Me.IsPostBack) Then
      SqlConnection1.Open()
      SqlCommand1.CommandText = "Select au_id, au_lname from authors"
      ListBox1.DataSource = SqlCommand1.ExecuteReader()
      ListBox1.DataTextField = "au_lname"
      ListBox1.DataValueField = "au_id"
      ListBox1.DataBind()
      SqlConnection1.Close()
   End If
End Sub