Como separar este metodo en tres capas

[Sumerio]

Hola, le quiero consultar este problemilla que tengo, todo mi formulario funciona bien, solo que tengo un metodo que se llama MostrarCodigo():

Código:

Dim cn As New SqlConnection("server=CASA-PC;database=SICVAST;integrated security=SSPI")

Sub MostrarCodigo()
        cn.Open()
        Using da As New SqlDataAdapter("UltimoCodigoProd", cn)
            da.SelectCommand.CommandType = CommandType.StoredProcedure
            Dim ncodigo As String = da.SelectCommand.ExecuteScalar

            txtCodProducto.Text = "P" & (Microsoft.VisualBasic.Right(ncodigo, 3) + 1).ToString("000")
        End Using
        cn.Close()
    End Sub

Lo que hace es mostrar el codigo del producto nuevo a registrar, pero el problema es que lo tengo en una capa, lo que tengo que hacer es tenerlo en tres capas, pero nose como hacerlo a causa que tengo que capturar lo me envia el procedimiento ("UltimoCodigoProd") que me da el ultimo codigo, y en esta capa capturarlo por txtCodProducto y castearlo y sumarle uno.