Ejemplo de diseño en 3 capas vb.net

[chcma]

Capa Presentacion:

Dim objNegocio as new CapaNegocio()
Dim tbAlumnos as DataTable

if not objNegocio.insertaAlumno(txtnombre.text, txtapellidos.text) then
msgbox("Fallo al insertar datos")
exit sub
end if

if tbAlumnos not is nothing then
tbAlumnos.Dispose
end if
tbalumnos = new DataTable 'Asi siempre krearemos uno nuevo.
if not objNegocio.dameAlumnos(tbAlumnos) then
msgbox("Fallo al recuperar datos")
exit sub
end if


************************************************
Capa Negocio

public function insertaAlumno(ByVal nombre as String, ByVal Apellidos as String) as Boolean

'Metemos los parametros en una coleccion, Campo - Valor(La llamaremos objColeccion)
Dim objBD as new CapaAccesoBD("cadena conexion")
if not objBD.insertaDatos("talumnos", objColeccion) then
return false
end if

end function


public function dameAlumnos(ByRef tbDatos as DataTable) as boolean

'Creamos los campos que iran en el datatable y q recibiremos de la sentencia select
tbDatos.add(New Column("nombre", "tipo de dato"))
tbDatos.add(New Column("nombre", "tipo de dato"))

if not objDatos.dameSelect(tbTabla, "talumnos", "*", "") then
return false
end if

end function



************************************************** ***********
Capa AccesoADatos:

public function insertaDatos(ByVal tablaBD as String, ByVal CollecionCampos as Collection) as boolean

'Creamos una sentencia insert comun para cualquier tabla.
'Si la ejecucion de esa tabla es verdadera, devolvemos true

end function


public function dameSelect(ByRef tbDatos as DataTable, tablaBD as string, Campos as String, Optional Condicion = "") as boolean

Hacemos un select y metemos los valroes en el dataTable, al haber sido pasado por referencia, este se llenará automáticamente con los datos en la capa de presentación, para asi poder mostrarlso trankilamente.

end function



Ya podrían haberme puesto a mi esta respuesta cuando lo pregunte en su momento. Espero que te sirva. Saludos.