Usando EntityFramework en Tres Capas

En la Capa de Acceso a Datos

En la Capa de Negocio

Imports DAL 
Imports System.Data.SqlClient

Public Class Producto

    Dim _objEntitidades As New EjemploEntities() 
    Dim _objProducto As New DAL.Producto 
    Dim _objConexion As New DAL.Conexion

    Public Sub GuardarProducto(ByVal strNombreProducto As String, ByVal intExistencia As Integer, ByVal dblPrecio As Double)
        _objProducto.Nombre = strNombreProducto
        _objProducto.Existencia = intExistencia
        _objProducto.Precio = dblPrecio 
        _objEntitidades.Productoes.Add(_objProducto) 
        _objEntitidades.SaveChanges()
    End Sub

    Public Function CargarProducto() As IList(Of DAL.Producto)
           Return _objEntitidades.Productoes.ToList 
    End Function

    Public Sub ActualizarProducto(ByVal intIdProducto As Integer, ByVal  strNombreProducto As String, ByVal intExistencia As Integer, ByVal dblPrecio As Double) 
        Using _objEntitidades

            Dim producto = (From p In _objEntitidades.Productoes Where p.IdProducto = intIdProducto).SingleOrDefault()

            producto.Nombre = strNombreProducto
            producto.Existencia = intExistencia 
            producto.Precio = dblPrecio
            _objEntitidades.SaveChanges() 
        End Using 
    End Sub
End Class


En la Capa de Presentación

Imports BLL 

Partial Class Formularios_wfProducto
        Inherits System.Web.UI.Page


    Dim _objProducto As New Producto
    
    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load

        If Not IsPostBack Then
           Dim dt As Data.DataTable = _objProducto.CargarProducto()
           grdReja.DataSource = dt grdReja.DataBind() 'Cargando Un GridView  
         End If 
    End Sub  

   Protected Sub btnGuardar_Click(sender As Object, e As EventArgs) Handles btnGuardar.Click 
      _objProducto.GuardarProducto(txtNombre.Text, CInt(txtExistencia.Text), CDbl(txtPrecio.Text))
   End Sub
End Class