<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
Sub Page_Load(Sender As Object, E As EventArgs)
Dim ConnectionString As String = _
"server=(local)\netsdk;database=cam;trusted_connection=true"
Dim CommandText As String = "AllDiscsByDate"
Dim myConnection As New SqlConnection(ConnectionString)
Dim myCommand As New SqlCommand(CommandText, myConnection)
Dim workParam As New SqlParameter()
myCommand.CommandType = CommandType.StoredProcedure
myConnection.Open()
DataGrid1.DataSource = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
DataGrid1.DataBind()
End Sub
Simple Stored Procedure