Error: WebException was unhandled... could not establish connection to network

Private Sub btnLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLoad.Click

Dim MyService As localhost.Service = New localhost.Service()

Dim MyService As localhost.Service = New localhost.Service()

End Sub

'------------------------------------------------------------------------------

' <auto-generated>

' This code was generated by a tool.

' Runtime Version:2.0.50727.42

'

' Changes to this file may cause incorrect behavior and will be lost if

' the code is regenerated.

' </auto-generated>

'------------------------------------------------------------------------------

Option Strict Off

Option Explicit On

Imports System

Option Explicit On

Imports System

Imports System

Imports System.ComponentModel

Imports System.Data

Imports System.Diagnostics

Imports System.Web.Services

Imports System.Web.Services.Protocols

Imports System.Xml.Serialization

'

'This source code was auto-generated by Microsoft.CompactFramework.Design.Data, Version 2.0.50727.42.

'

Namespace localhost

'''<remarks/>

'''<remarks/>

<System.Diagnostics.DebuggerStepThroughAttribute(), _

System.ComponentModel.DesignerCategoryAttribute("code"), _

System.Web.Services.WebServiceBindingAttribute(Name:="ServiceSoap", [Namespace]:="http://tempuri.org/")> _

Partial Public Class Service

Inherits System.Web.Services.Protocols.SoapHttpClientProtocol

'''<remarks/>

System.Web.Services.WebServiceBindingAttribute(Name:="ServiceSoap", [Namespace]:="http://tempuri.org/")> _

Partial Public Class Service

Inherits System.Web.Services.Protocols.SoapHttpClientProtocol

'''<remarks/>

Partial Public Class Service

Inherits System.Web.Services.Protocols.SoapHttpClientProtocol

'''<remarks/>

Inherits System.Web.Services.Protocols.SoapHttpClientProtocol

'''<remarks/>

'''<remarks/>

Public Sub New()

MyBase.New

Me.Url = "http://localhost/WSUpdateData/Service.asmx"

MyBase.New

Me.Url = "http://localhost/WSUpdateData/Service.asmx"

Me.Url = "http://localhost/WSUpdateData/Service.asmx"

End Sub

'''<remarks/>

<System.Web.Services.Protocols.SoapDocumentMethodAttribute("http://tempuri.org/HelloWorld", RequestNamespace:="http://tempuri.org/", ResponseNamespace:="http://tempuri.org/", Use:=System.Web.Services.Description.SoapBindingUse.Literal, ParameterStyle:=System.Web.Services.Protocols.SoapParameterStyle.Wrapped)> _

Public Function HelloWorld() As String

Public Function HelloWorld() As String

Dim results() As Object = Me.Invoke("HelloWorld", New Object(-1) {})  <<<<< ERROR OCCUR AT THIS LINE

Return CType(results(0),String)

End Function

Return CType(results(0),String)

End Function

End Function

'''<remarks/>

Public Function BeginHelloWorld(ByVal callback As System.AsyncCallback, ByVal asyncState As Object) As System.IAsyncResult

Return Me.BeginInvoke("HelloWorld", New Object(-1) {}, callback, asyncState)

End Function

Return Me.BeginInvoke("HelloWorld", New Object(-1) {}, callback, asyncState)

End Function

End Function

'''<remarks/>

Public Function EndHelloWorld(ByVal asyncResult As System.IAsyncResult) As String

Dim results() As Object = Me.EndInvoke(asyncResult)

Return CType(results(0),String)

End Function

Return CType(results(0),String)

End Function

End Function

End Namespace