como crear una conección y almacenar una imagen en la base de datos

'facial este es el código:

'ingresa y busac imagen


''Dim obj As New Busca_imagen_bodega
''Dim dr As SqlDataReader = obj.busca_imagen(6)

''While dr.Read()
'' Dim binaryStream As System.Data.SqlTypes.SqlBinary = dr.GetSqlBinary(0) 'SqlBinary
'' Dim stmBLOBData As New MemoryStream(binaryStream)
'' PictureBox1.Image = Image.FromStream(stmBLOBData)
'' PictureBox1.SizeMode = PictureBoxSizeMode.StretchImage
''End While



********************************************************************
********************************************************************
Const conexion As String = "Data Source=PE-WEB-9TPJL11\SERVERDESARR;Initial Catalog=SAI_TMG;Integrated Security=True" 'Northwind SCE_TMG

'Public Function busca_imagen(ByVal dato As Integer) As SqlDataReader

' 'Try
' ' Dim conn As New SqlConnection(conexion)
' ' Dim sql As String = "SELECT imagen from BAS_BODEGA where id_Bodega_BOD= '" & dato & "'"
' ' Dim ds As New DataSet
' ' Dim dr As SqlDataReader
' ' Dim cmd As SqlCommand
' ' cmd = New SqlCommand(sql, conn)
' ' conn.Open()
' ' dr = cmd.ExecuteReader

' ' 'If dr.Read Then
' ' ' Me.TxtB_codigo.Text = dr.Item("codigo_iso".ToString '****CODIGO_ISO_CONSECUTIVO**TRE ESTE CAMPO DE TA TABLA PARAMETROS

' ' Return dr
' ' 'End If
' ' dr.Close()
' ' conn.Close()
' ' cmd.Dispose()
' ' conn.Dispose()
' 'Catch ex As SqlException
' ' MessageBox.Show(ex.ToString, "error en laconexion", MessageBoxButtons.OK)
' 'Catch ex As Exception
' ' MessageBox.Show(ex.ToString, "error en generico", MessageBoxButtons.OK)
' 'End Try

'End Function
''Public Sub Salva_imagen(ByVal dato As Integer)
'' Try

'' Dim conn As New SqlConnection(conexion)
'' Dim sqlcomd As New SqlCommand("INSERT INTO Table_imagen VALUES ( @imagen, @id_)"
'' sqlcomd.Connection = conn
'' Dim mss As New System.IO.MemoryStream

'' sqlcomd.Parameters.Add("@id_", System.Data.SqlDbType.Int)
'' sqlcomd.Parameters.Add("@imagen", System.Data.SqlDbType.Image)

'' sqlcomd.Parameters("@id_".Value = CInt(Me.TextBox4.Text.Trim)

'' PictureBox1.Image.Save(mss, System.Drawing.Imaging.ImageFormat.Jpeg)
'' sqlcomd.Parameters("@imagen".Value = mss.GetBuffer


'' conn.Open()
'' sqlcomd.ExecuteNonQuery()
'' conn.Close()
'' sqlcomd.Dispose()
'' conn.Dispose()

'' Catch ex As SqlException
'' MessageBox.Show(ex.ToString, "error sql ", MessageBoxButtons.OK)
'' Catch ex As Exception
'' MessageBox.Show(ex.ToString, "error general ", MessageBoxButtons.OK)
'' End Try
''End Sub


****************************************************
*******************************************************
#Region "salva LA IMAGEN DE LA BASE DE DATOS"

Public Sub Salva_imagen()
Try
Dim sqlcomd As New SqlCommand(" Update dbo.BAS_BODEGA set imagen = @imagen where id_Bodega_BOD ='" & Me.Cmb_id_Bodega_BOD.Text.Trim & "'" ''" & Me.Cmb_id_Bodega_BOD.Text.Trim & "'
Dim conn As New SqlConnection(conexion)
' Dim sqlcomd As New SqlCommand("INSERT INTO Table_imagen VALUES ( @imagen, @id_)"
sqlcomd.Connection = conn
Dim mss As New System.IO.MemoryStream

'sqlcomd.Parameters.Add("@id_", System.Data.SqlDbType.Int)
sqlcomd.Parameters.Add("@imagen", System.Data.SqlDbType.Image)

'sqlcomd.Parameters("@id_".Value = CInt(Me.TextBox4.Text.Trim)

PictureBox1.Image.Save(mss, System.Drawing.Imaging.ImageFormat.Jpeg)
sqlcomd.Parameters("@imagen".Value = mss.GetBuffer


conn.Open()
sqlcomd.ExecuteNonQuery()
conn.Close()
sqlcomd.Dispose()
conn.Dispose()

Catch ex As SqlException
MessageBox.Show(ex.ToString, "error sql ", MessageBoxButtons.OK)
Catch ex As Exception
MessageBox.Show(ex.ToString, "error general ", MessageBoxButtons.OK)
End Try
End Sub

Public Sub nueva_imagen()
Try
Dim sqlcomd As New SqlCommand(" Update dbo.BAS_BODEGA set imagen = @imagen where id_Bodega_BOD ='" & Me.Cmb_id_Bodega_BOD.Text.Trim & "'" ''" & Me.Cmb_id_Bodega_BOD.Text.Trim & "'
Dim conn As New SqlConnection(conexion)
' Dim sqlcomd As New SqlCommand("INSERT INTO Table_imagen VALUES ( @imagen, @id_)"
sqlcomd.Connection = conn
Dim mss As New System.IO.MemoryStream

'sqlcomd.Parameters.Add("@id_", System.Data.SqlDbType.Int)
sqlcomd.Parameters.Add("@imagen", System.Data.SqlDbType.Image)

'sqlcomd.Parameters("@id_".Value = CInt(Me.TextBox4.Text.Trim)

PictureBox1.Image.Save(mss, System.Drawing.Imaging.ImageFormat.Jpeg)
sqlcomd.Parameters("@imagen".Value = mss.GetBuffer


conn.Open()
sqlcomd.ExecuteNonQuery()
conn.Close()
sqlcomd.Dispose()
conn.Dispose()

Catch ex As SqlException
MessageBox.Show(ex.ToString, "error sql ", MessageBoxButtons.OK)
Catch ex As Exception
MessageBox.Show(ex.ToString, "error general ", MessageBoxButtons.OK)
End Try
End Sub

#End Region