Imports System.Data.Linq

Public Class Customers
    Inherits System.Web.UI.Page

    'Get customers' collection from DataContext

    Dim dc As NwindDataContext = New NwindDataContext("Data Source=.;Initial Catalog=Northwind;Integrated Security=TRUE")

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not Page.IsPostBack) Then
            BindData()
        End If
    End Sub
    Private Sub BindData()

        'Select customer's from USA with LINQ query
        Dim custs = From p In dc.Customers Where p.Country = "USA" Select p.CustomerID, p.ContactName, p.CompanyName, p.Country

        'Bind filtered collection to gridview
        Me.gvCustomers.PageSize = 5
        Me.gvCustomers.DataSource = custs
        Me.gvCustomers.DataBind()
    End Sub

    Protected Sub gvCustomers_SelectedIndexChanged(ByVal sender As Object, ByVal e As EventArgs)
        'Get customer object from selected row
        Dim cust = dc.Customers.Where(Function(p) p.CustomerID = gvCustomers.SelectedValue.ToString())
        'Dim cust = From p In dc.Customers Where p.CustomerID = gvCustomers.SelectedValue.ToString()

        'Bind filtered collection to detailview
        dvCustomers.DataSource = cust
        dvCustomers.DataBind()
    End Sub

End Class