4 Capas en .Net

[frankjoel86]

Gracias por el interes peterpay. man.
ya me salio la conexion, insertar un registro, pero no se como hacer modificar un registro. muestro el codigo.

CAPA_DATOS
-------------------------------
Imports CAPA_DATOS
Imports CAPA_ENTIDAD
Imports Microsoft.ApplicationBlocks.Data
Public Class DATOS_BUSCAR_CLIENTES_X_CODIGO
Dim CN As New CADENA_CONEXION
Public Function USP_BUSCAR_CLIENTES_X_CODIGO(ByVal OBJ_ENT_CLIENTES As ENT_CLIENTES) As Integer
Try
Return SqlHelper.ExecuteNonQuery (CN.MYCONEXION, "USP_BUSCAR_CLIENTES_X_CODIGO", OBJ_ENT_CLIENTES.CODIGO)
Catch ex As Exception
MsgBox(Err.Description)
End Try
End Function
End Class

CAPA_ENTIDAD
-------------------
Public Class ENT_CLIENTES
Private _CODIGO As String
Private _NOMBRE As String
Private _APELLIDO As String

Public Property CODIGO() As String
Get
Return _CODIGO
End Get
Set(ByVal value As String)
_CODIGO = value
End Set
End Property
Public Property NOMBRE() As String
Get
Return _NOMBRE
End Get
Set(ByVal value As String)
_NOMBRE = value
End Set
End Property
Public Property APELLIDO() As String
Get
Return _APELLIDO
End Get
Set(ByVal value As String)
_APELLIDO = value
End Set
End Property


CAPA_NEGOCIO
-------------------------
Imports System.Data
Imports System.Data.SqlClient
Imports CAPA_DATOS
Imports CAPA_ENTIDAD
Public Class NEG_CLIENTES
Dim OBJ_DATOS_CLIENTES As New DATOS_CLIENTES
Public Function LEER_CLIENTE(ByVal OBJ_ENT_CLIENTE As ENT_CLIENTES) As DataTable
Return OBJ_DATOS_CLIENTES.LEER_CLIENTES(OBJ_ENT_CLIENTE)
End Function
End Class

CAPA_PRESENTACION
------------------------------
Imports CAPA_ENTIDAD
Imports CAPA_NEGOCIO
Public Class FrmEditarCliente
Public Class FrmEditarCliente
Dim OBJ_NEG_CLIENTE As New NEG_CLIENTES
Private Sub FrmEditarCliente_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim OBJ_ENT_CLIENTE As New ENT_CLIENTES
OBJ_ENT_CLIENTE.CODIGO = vid
Dim DT As New DataTable
DT = OBJ_NEG_CLIENTE.LEER_CLIENTE(OBJ_ENT_CLIENTE)
DT.Rows(0)("NOMBRE") = TxtNombre.Text
DT.Rows(0)("APELLIDO") = TxtApellido.Text
End Sub
End Class

* Cuando sigo la secuencia, solamente llega hasta llenar el datatable, pero no llena los textbox con los datos.

Agradesco cualquier tipo de apoyo