....
   <div class="float-right">
                <nav>
                    <ul id="menu">
                        <li><a runat="server" href="~/">Home</a></li>
                        <li><a runat="server" href="~/About.aspx">Sobre</a></li>
                        <li><a runat="server" href="~/Clientes.aspx">Cadastro</a></li>
                    </ul>
                </nav>
            </div>
....

<%@ Page Title="Home Page" Language="VB" MasterPageFile="~/Site.Master" AutoEventWireup="true" 
CodeBehind="Default.aspx.vb" Inherits="EF_AcessoDados._Default" %>

<asp:Content runat="server" ID="FeaturedContent" ContentPlaceHolderID="FeaturedContent">
 </asp:Content>
<asp:Content runat="server" ID="BodyContent" ContentPlaceHolderID="MainContent">
    <h2>
       Atualizar Clientes</h2>
    <br />
     Exemplo de acesso aos dados dos Clientes
<table border="1">
                 <tr>
                <td><strong>Cliente - ID</strong></td>
                <td><strong>Nome</strong></td>
                <td><strong>Endereco</strong></td>
                <td> <strong>Telefone</strong> </td>
                <td> <strong>Email</strong> </td>
                <td>
                 </td>
                </tr>
                <asp:Repeater ID="rptClientes" runat="server">
                <ItemTemplate> 
                 <tr>
                <td><%#DataBinder.Eval(Container.DataItem, "id") %> </td>
                <td> <%#DataBinder.Eval(Container.DataItem, "nome")%> </td>
                <td> <%#DataBinder.Eval(Container.DataItem, "endereco")%> </td>
                 <td> <%#DataBinder.Eval(Container.DataItem, "telefone")%> </td>    
               <td> <%#DataBinder.Eval(Container.DataItem, "email")%> </td>    
                <td>
                    <asp:HyperLink ID="HyperLink1" runat="server" NavigateUrl='<%#DataBinder.Eval(Container, "DataItem.id",
 "AtualizaCliente.aspx?id={0}")%>'>Atualizar</asp:HyperLink>
                </td>          
                </tr>
                </ItemTemplate>
                </asp:Repeater>
                </table>
</asp:Content>

Public Class _Default
    Inherits Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        Dim contexto As New CadastroEntities()
        rptClientes.DataSource = contexto.Clientes.ToList()
        rptClientes.DataBind()
    End Sub
End Class

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

        If IsPostBack = False Then
            If Request.QueryString("id") Is Nothing Then
                Response.Redirect("Default.aspx")
            End If

            Dim clienteID As Integer = Convert.ToInt32(Request.QueryString("id").ToString())
            Dim contexto As New CadastroEntities()
            Dim cli As Cliente = contexto.Clientes.SingleOrDefault(Function(p) p.id = clienteID)

            lblID.Text = cli.id.ToString()
            lblNome.Text = cli.nome
            lblEndereco.Text = cli.endereco
            txtTelefone.Text = cli.telefone
            txtEmail.Text = cli.email
            Session("atualizaCliente") = cli
        End If

    End Sub

 Protected Sub btnAtualizar_Click(sender As Object, e As EventArgs) Handles btnAtualiza.Click
        Dim clienteID As Integer = Convert.ToInt32(Request.QueryString("id").ToString())
        Dim contexto As New CadastroEntities
        Dim cli As Cliente = db.Clientes.SingleOrDefault(Function(p) p.id = clienteID)

        cli.telefone = txtTelefone.Text
        cli.email = txtEmail.Text
        contexto.SaveChanges()

        lblmsg.Text = "Cliente atualizado com sucesso !!"

    End Sub

As expressões lambda foram incluídas no VS/VB 2008 para dar suporte a consultas LINQ. As cláusulas Where são assim compiladas como expressões lambdas e chamadas em itens aplicáveis do seu dataset. Podem ser consideradas uma forma de delegate que pode passar ou retornar outra função.

Nota: Delegates permitem que uma classe use métodos de outra classe. Para saber mais sobre delegates leia o meu artigo: Usando Delegates

No LINQ as expressões lambda são usadas para realizar ações sobre listas de objetos e com extensões de métodos. Uma expressão lambda é então uma função sem nome que calcula e retorna um valor único e podem ser usadas em qualquer lugar que um tipo delegate for válido.

Exemplos :

Function (numero As Integer) numero + 1 => Expressão lambda que aumenta o seu argumento e retorna um valor.
Function(n) n Mod 2 = 0 => Expressão lambda que verifica se um número é par.
Function(x) x ^ 3 => Expressão lambda que calcula o cubo de um número.

 Protected Sub btnDeleta_Click(sender As Object, e As EventArgs) Handles btnDeleta.Click
        If chkDeleta.Checked = True Then
            'deleta o contato
            Dim clienteID As Integer = Convert.ToInt32(Request.QueryString("id").ToString())
            Dim contexto As New CadastroEntities()
            Dim cli As Cliente = contexto.Clientes.SingleOrDefault(Function(p) p.id = clienteID)

            contexto.Clientes.Remove(cli)
            contexto.SaveChanges()
            Response.Redirect("Default.aspx")
        End If
        Return
    End Sub

Protected Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancela.Click
        Response.Redirect("default.aspx")
End Sub

Public Class Contact
    Inherits Page


    Protected Sub btnAdicionar_Click(sender As Object, e As EventArgs) Handles btnAdicionar.Click
        If Not (String.IsNullOrWhiteSpace(txtNome.Text)) Or Not _
                (String.IsNullOrWhiteSpace(txtEndereco.Text)) Or Not _
                    (String.IsNullOrWhiteSpace(txtTelefone.Text)) Or Not _
                        (String.IsNullOrWhiteSpace(txtEmail.Text)) Then
            'cria um novo objeto cliente
            Dim cli As New Cliente
            'atualiza os dados do objeto
            cli.nome = txtNome.Text
            cli.endereco = txtEndereco.Text
            cli.telefone = txtTelefone.Text
            cli.email = txtEmail.Text

            'cria um novo contexto
            Dim contexto As New CadastroEntities
            'adiciona a entidade ao contexto
            contexto.Clientes.Add(cli)
            'persiste as informação no banco de dados
            contexto.SaveChanges()
        Else
            lblmsg.Text = "Informe os dados para incluir um novo Cliente"
        End If

    End Sub

    Protected Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles btnCancelar.Click
        Response.Redirect("~/Default.aspx")
    End Sub
End Class