Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.ComponentModel
Imports System.Data.SqlClient
Imports System.Data

' To allow this Web Service to be called from script, using ASP.NET AJAX, uncomment the following line.
' <System.Web.Script.Services.ScriptService()> _
<System.Web.Services.WebService(Namespace:="http://tempuri.org/")> _
<System.Web.Services.WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _
<ToolboxItem(False)> _
Public Class Service1
    Inherits System.Web.Services.WebService

    <WebMethod()> _
    Public Function GetCustomers() As DataSet
        'Create sqlconnection & sqldataadapter objects get data from Northwind database
        Dim conn As SqlConnection = New SqlConnection("Data Source=.;Initial Catalog=Northwind;Integrated Security=True")
        Dim da As SqlDataAdapter = New SqlDataAdapter("Select * from Customers", conn)
        Dim ds As DataSet = New DataSet()

        'Use the data adapter to fill the data set
        da.Fill(ds, "Customers")
        Return ds
    End Function

End Class