Insertar imagen en sql server 2008 con vb.net

Lo primero que debes de hacer es convertir a bits los bits de la imagen en Asp.net seria
Private Function ObtenerBytes(ByVal ObjetoInput As HtmlInputFile) As Byte()
        'Este función obtiene los Bytes que contiene el fichero del Input File y retorna un Matriz de Bytes
        Dim BytesDeLaImagen(ObjetoInput.PostedFile.ContentLength) As Byte
        ObjetoInput.PostedFile.InputStream.Position = 0
        ObjetoInput. PostedFile. InputStream. Read(BytesDeLaImagen, 0, ObjetoInput. PostedFile. ContentLength - 1)
        Return BytesDeLaImagen
    End Function
    Private Function ObtenerBytes(ByVal ObjetoInput As HtmlInputFile) As Byte()        'Este función obtiene los Bytes que contiene el fichero del Input File y retorna un Matriz de Bytes        Dim BytesDeLaImagen(ObjetoInput.PostedFile.ContentLength) As Byte        ObjetoInput.PostedFile.InputStream.Position = 0        ObjetoInput.PostedFile.InputStream.Read(BytesDeLaImagen, 0, ObjetoInput.PostedFile.ContentLength - 1)        Return BytesDeLaImagen    End Function
esto atravez de un input posterormemte tendrias que hacerla insercion con un procedimiento almacenado

Estimado ya hacia esa función ... así la tengo yo
Public Function ImageToBytes(ByVal foto As Image) As Byte()
        Dim mS As MemoryStream = New MemoryStream()
        foto.Save(mS, ImageFormat.Jpeg)
        Return mS.ToArray()
    End Function
donde me devuelve un arreglo de bytes en la variable imgArray()
despues "transformo esa variable a text" Dim imgTxt As String = System.Text.Encoding.Unicode.GetString(imgArray)
Pero hay me arroja el error

Lo que quieres hacer es la inserción a la base de datos esto yo lo hago con n procedimiento que reciba una imagen por qué si lo haces como texto no te respeta lo que guardas
Public Function AgragarImagenes(ByVal IdProyecto As String, ByVal imagen As Byte(), ByVal idGarantia As String, ByVal Tabla As String) As String
            Dim Conec As Data.SqlClient.SqlConnection
            Dim coma As Data.SqlClient.SqlCommand
            ' Establecemos la cadena de Coneccion y la instanciamos
            Conec = New SqlClient.SqlConnection("Cadena de Conexion")
            coma = New Data.SqlClient.SqlCommand("ProcedimientoAlmacenadoQue inserta foto", Conec)
            coma.CommandType = CommandType.StoredProcedure
            coma.Parameters.Add("@id", SqlDbType.Int)
            coma.Parameters("@id").Value = IdProyecto
            Try
                coma.Parameters.Add("@ima", SqlDbType.Image)
                coma.Parameters("@ima").Value = imagen
                Try
                    'Abre la conexion a la base de datos 
                    Conec.Open()
                    coma.ExecuteNonQuery()
                    'El manejador de base de datos devuelve los datos pedidos en el dataset
                Catch ex As Exception
                    Dim er As String
                    er = Err.Description & " : " & Err.Number
                    er = er
                    Return er
                Finally
                    'Se cierra la coneccion de la base de batos
                    Conec.Close()
                End Try
            Catch ex As Exception
                Dim er As String
                er = ex.Message
                er = er
                Return er
            End Try
            Return "Se realizo Correctamente"
        End Function
        Public Function AgragarImagenes(ByVal IdProyecto As String, ByVal imagen As Byte(), ByVal idGarantia As String, ByVal Tabla As String) As String            Dim Conec As Data.SqlClient.SqlConnection            Dim coma As Data.SqlClient.SqlCommand            ' Establecemos la cadena de Coneccion y la instanciamos            Conec = New SqlClient.SqlConnection("Cadena de Conexion")            coma = New Data.SqlClient.SqlCommand("ProcedimientoAlmacenadoQue inserta foto", Conec)            coma.CommandType = CommandType.StoredProcedure
            coma.Parameters.Add("@id", SqlDbType.Int)            coma.Parameters("@id").Value = IdProyecto
            Try                coma.Parameters.Add("@ima", SqlDbType.Image)                coma.Parameters("@ima").Value = imagen
                Try                    'Abre la conexion a la base de datos                     Conec.Open()                    coma.ExecuteNonQuery()                    'El manejador de base de datos devuelve los datos pedidos en el dataset                Catch ex As Exception                    Dim er As String                    er = Err.Description & " : " & Err.Number                    er = er                    Return er                Finally                    'Se cierra la coneccion de la base de batos                    Conec.Close()                End Try
            Catch ex As Exception                Dim er As String                er = ex.Message                er = er                Return er            End Try            Return "Se realizo Correctamente"        End Function
Codigo SQL
/*  
Objeto: procedimiento almacenado dbo. CnCargaFotoProyecto
realizad0 por: luis Angel octavio alcaraz barajas
    EL 15-Octubre-2008
   DESCRIPCIÓN: Inserta un registro en la tabla de CnImagenesProyectos
*/  
CREATE   PROCEDURE [dbo].[CnCargaFotoProyecto]   
   @id int,  
   @idGarantia int,  
   @ima image = null,  
   @tabla char(1)  
AS  
 declare @Maximo int  
if @tabla='G'  
begin
 SELECT @Maximo= ISNULL(MAX(idImagen),0)+1 FROM CnImagenesProyectos  
 INSERT INTO CnImagenesProyectos (idImagen,idProyecto,idGarantia,Imagen)  
 VALUES (@Maximo,@id,@idGarantia,@ima)  
end  
if @tabla='S'  
begin  
 SELECT @Maximo= ISNULL(MAX(idImagen),0)+1 FROM CnImagenesSupervicion  
 INSERT INTO CnImagenesSupervicion (idImagen,idProyecto,idSupervicion,Imagen)  
 VALUES (@Maximo,@id,@idGarantia,@ima)  
end  
/*   Objeto:  procedimiento almacenado dbo.CnCargaFotoProyecto        REALIZAD0 POR: LUIS ANGEL OCTAVIO ALCARAZ BARAJAS       EL 15-Octubre-2008     DESCRIPCION: Inserta un registro en la tabla de CnImagenesProyectos  */    CREATE   PROCEDURE [dbo].[CnCargaFotoProyecto]      @id int,     @idGarantia int,     @ima image = null,     @tabla char(1)  AS     declare @Maximo int        if @tabla='G'  begin     SELECT @Maximo= ISNULL(MAX(idImagen),0)+1 FROM CnImagenesProyectos     INSERT INTO CnImagenesProyectos (idImagen,idProyecto,idGarantia,Imagen)   VALUES (@Maximo,@id,@idGarantia,@ima)  end    if @tabla='S'  begin     SELECT @Maximo= ISNULL(MAX(idImagen),0)+1 FROM CnImagenesSupervicion     INSERT INTO CnImagenesSupervicion (idImagen,idProyecto,idSupervicion,Imagen)   VALUES (@Maximo,@id,@idGarantia,@ima)  end
asi seria concodigo sql y codigo visual es mas conveniente de esta  manera tambien puedes hacerlo con una instruccion insert pero necesitas definir una valiable tipo image

estimado y no existe la posibilidad de añadir una imagen pero con este tipo de conexion = Dim conexion As ADODB.Connection ???
Ya que tengo todo mi programa de esa forma... me imagino una idea así conexión. Execute("insert into fotoprueba values ( '" & bmapCV & "')") o alguna forma, ¿Dónde bmapcv es tipo imagen?