Una consulta sobre como crear un metodo que agrupe mi cadena de Conexion a la BD ?

[Sumerio]

Buenos dias ante todo, le quiero hacer una consulta, como soy nuevo en ASP.NET ya estoy manejando mantenimientos en formularios web en el modelo de tres capas,y en la capa Data, donde ahi recien declaro el contenido de mi Public Function, necesito crear un metodo para no estar creando muchas cadenas de conexion, como le muestro lo siguiente:

Código:

Imports Taller.BE
Imports System.Data.SqlClient
Imports System.Configuration

Public Class ProductoDO
    Public Function ListarProd() As List(Of ProductoBE)
        Dim listaProductos As New List(Of ProductoBE)

        Dim procedimiento As String = "ListarProductos"
        Dim cadenaConexion As String = "server=CASA-PC;database=SICVAST;integrated security=SSPI"
        ' "data source=.; initial catalog=northwind; user id=sa; password=alumno;"

        Dim conexion As New SqlConnection(cadenaConexion)
        Dim comando As New SqlCommand(procedimiento, conexion)
        comando.CommandType = CommandType.StoredProcedure

        Using conexion
            conexion.Open()

            Dim reader As SqlDataReader = comando.ExecuteReader()

            While reader.Read
                Dim producto As New ProductoBE
                producto.Codigo = reader.GetString(reader.GetOrdinal("Codigo"))
                producto.Descripcion = reader.GetString(reader.GetOrdinal("Descripcion"))
                producto.Categoria = reader.GetString(reader.GetOrdinal("Categoria"))
                producto.UnidMedida = reader.GetString(reader.GetOrdinal("Unidad de Medida"))
                listaProductos.Add(producto)
            End While

        End Using

        Return listaProductos
    End Function
End Class

Ya que voy a crear mas metodos para mantenimiento y demas, y no quiero estar declarando cada rato esa cadena conexion.