Imports Northwind

Partial Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Dim svc As New NORTHWNDEntities(New _
            Uri("http://localhost:4113/NorthwindDataService.svc").ToString())

        GridView1.DataSource = svc.Customers
        GridView1.DataBind()

    End Sub
End Class
