Imports System.Data
Imports System.Data.SqlClient

Create a new WebForm with:
	Data Grid:	dgOrders
	Data Grid: 	dgCustomers
	Label:		lblMessage


    Private Sub Page_Load(...
        Dim strSQL As String = "user id=sa;integrated security=SSPI;data source='(local)';Database=Northwind;"
        'Dim cn AS new sql.SqlConnection
        'cn.ConnectionString = strSQL
        ' same as
        Dim cn As New SqlConnection(strSQL)


        Try
            ' Setup Command
            Dim cmdCustomers As New SqlCommand
            cmdCustomers.CommandText = "GetCustomers"
            cmdCustomers.CommandType = CommandType.StoredProcedure
            cmdCustomers.Connection = cn

            ' Setup Command
            Dim cmdOrders As New SqlCommand
            cmdOrders.CommandText = "GetOrders"
            cmdOrders.CommandType = CommandType.StoredProcedure
            cmdOrders.Connection = cn

            Dim daCustomers As New SqlDataAdapter
            Dim daOrders As New SqlDataAdapter

            daCustomers.SelectCommand = cmdCustomers
            daOrders.SelectCommand = cmdOrders


            Dim ds As New dsCustomersAndOrders
            daCustomers.Fill(ds.GetCustomers)
            daOrders.Fill(ds.GetOrders)

            dgOrders.DataSource = ds.GetCustomers
            dgCustomers.DataSource = ds.Getorders

            'dgOrders.DataBind()
            'dgCustomers.DataBind()
            Page.DataBind()

            cmdCustomers = Nothing
            cmdOrders = Nothing

            daCustomers = Nothing
            daOrders = Nothing

            cn.Close()
            cn = Nothing
	    lblMessage.Text = "Success!"

        Catch ex As Exception
            lblMessage.Text = ex.Message.ToString
        End Try


Create to Stored Procedures by right clicking Stored Procedures in Server Explorer

   CREATE PROCEDURE dbo.GetOrders
      AS
   	Select * FROM Orders
   RETURN 


   CREATE PROCEDURE dbo.GetCustomers
      AS
	Select * From Customers
   RETURN 


Create Typed DataSet
	Right Clicking Project/Add New Item/Dataset... 
	Name it dsCustomersAndOrders.xsd
	Drag Stored Procedures: "GetCustomers" & "GetOrders" on to design surface