Imports System.Web

Imports System.Web.Services

Imports System.Web.Services.Protocols

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()> _

<WebService(Namespace:="http://tempuri.org/")> _ 
<WebServiceBinding(ConformsTo:=WsiProfiles.BasicProfile1_1)> _

<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _

Public Class ServiceInherits System.Web.Services.WebService 
<WebMethod()> _

Public Sub InsertData(ByVal cmd As String, ByVal con As String)

Dim dbConnection As New SqlConnection(con) 
dbConnection.Open()

Dim Command As New SqlCommand(cmd, dbConnection) 
Command.ExecuteNonQuery()

dbConnection.Close()

dbConnection = Nothing

End Sub

<WebMethod()> _

Public Function ReturnData(ByVal cmd As String, ByVal con As String) As DataSet 
Dim dbConnection As New SqlConnection(con)

Dim objCommand As New SqlDataAdapter(cmd, dbConnection)Dim ds As New DataSet 
objCommand.Fill(ds)

dbConnection.Close()

dbConnection = Nothing

Return ds 
End Function

End Class

Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim trn As New Transfer.Service()
        Dim strData As String = "Select * from Test_Dup"
        Dim strCon As String = "server=192.168.1.12;uid=sa;pwddatabase=Master;"
        Dim ds As New DataSet
        ds = trn.ReturnData(strData, strCon)
        GridView1.DataSource = ds
        GridView1.DataBind()
    End Sub

<appSettings>
  <add key="Transfer.Service" value="http://192.168.1.253/MyWebServices/Service.asmx;"/>
</appSettings>