' =========== WebService ================================================================

Create a new WebService Project nammed: "WebServiceDataDemo"

Imports System.Data
Imports System.Data.SqlClient
Imports System.Web.Services

Create a new WebService Named "'Northwind.asmx"

    <WebMethod()> _
     Public Function Customers() As dsCustomers
        Dim strSQL As String = "user id=sa;integrated security=SSPI;data source='(local)';Database=Northwind;"
        Dim cn As New SqlConnection(strSQL)

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

            Dim daCustomers As New SqlDataAdapter
            daCustomers.SelectCommand = cmdCustomers

            Dim ds As New dsCustomers
            daCustomers.Fill(ds.GetCustomers)
            Return ds
        Catch ex As Exception
            Return Nothing
        End Try

    End Function


Assumes you have the following Stored Procedure

   CREATE PROCEDURE dbo.GetCustomers
      AS
	Select * From Customers
   RETURN 


' =========== Test Client ================================================================

Imports System.Data
Imports System.Data.SqlClient

Create a new WebForm with:
	Data Grid:	DataGrid1


Add a web ref to: http://localhost/WebServiceDataDemo/Northwind.asmx 
	Keep the default name of: "localhost"

From Data Tab of Toolbox drag a DataSet onto design surface.  
	Keep the default name of: "DsCustomers1"


    Private Sub Page_Load(...
        Dim ws As New localhost.Northwind
        DsCustomers1 = ws.Customers
        DataGrid1.DataSource = DsCustomers1
        DataGrid1.DataBind()
    End Sub

Right click DataGrid/Property Builder/Set Data Source = DsCustomers1 ...

Autoformat... Make pritty...