Print - ASP.NET Stored Procedures

Imports System.Data
Imports System.Data.SqlClient
Imports System.Configuration

Partial Class _Default
	Inherits System.Web.UI.Page

	Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
		Dim connectionString As String
		Dim connection As SqlConnection
		connectionString = ConfigurationManager.ConnectionStrings("SQLDbConnection").ToString
		connection = New SqlConnection(connectionString)
		Dim adapter As SqlDataAdapter
		Dim command As New SqlCommand
		Dim ds As New DataSet

		Try
			connection.Open()
			command.Connection = connection
			command.CommandType = CommandType.StoredProcedure
			command.CommandText = "SPAUTHORS"
			adapter = New SqlDataAdapter(command)
			adapter.Fill(ds)
			connection.Close()
			ListBox1.DataSource = ds.Tables(0)
			ListBox1.DataTextField = "au_lname"
			ListBox1.DataBind()
		Catch ex As Exception
			Label1.Text = "Error in execution " & ex.ToString
		End Try
	End Sub
End Class