Imports System.Data Imports System.Data.SqlClient Public Class StoredProcedureDemo1 Inherits System.Web.UI.Page Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid #Region " Web Form Designer Generated Code " 'This call is required by the Web Form Designer. Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: This method call is required by the Web Form Designer 'Do not modify it using the code editor. InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim MySQL As String Dim MyCommand As SqlDataAdapter Dim MyConn As SqlConnection Dim sDSN As String sDSN = "server=student.bus.olemiss.edu;uid=dbdemo;pwd=dbpass;database=EmailDemo" MySQL = "GetCompleteEmailDirectory" MyConn = New SqlConnection(sDSN) MyCommand = New SqlDataAdapter(MySQL, MyConn) Dim DS As DataSet DS = New DataSet() MyCommand.Fill(DS, "StudentData") DataGrid1.DataSource = DS.Tables("StudentData").DefaultView DataGrid1.DataBind() End Sub End Class