Menyimpan dan mengupdate gambar di SQL Server

Public Function ConvertImagetoByte(MyImage As Image) As Byte()
        Dim MyByte As Byte() = Nothing
        Dim MyMemoryStream As MemoryStream = New MemoryStream()
        MyImage.Save(MyMemoryStream, System.Drawing.Imaging.ImageFormat.Jpeg)
        MyByte = MyMemoryStream.GetBuffer()
        Return MyByte
    End Function
-------------------------------------------
    Public Function ConvertBytetoImage(MyByte As Byte()) As Image
        Dim MyImage As Image
        Dim MyMemoryStream As MemoryStream = New MemoryStream(MyByte)
        MyImage = Drawing.Image.FromStream(MyMemoryStream)
        Return MyImage
    End Function

--------------------------------------------








Private Sub LinkLabel3_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel3.LinkClicked
        Dim pilihgambar As New OpenFileDialog
        pilihgambar.Filter = "All Images|*.BMP;*.DIB;*.RLE;*.JPG;*.JPEG;*.JPE;*.JFIF;*.GIF;*.TIF;*.TIFF;*.PNG"
        pilihgambar.ShowDialog()
        Dim photo As Image = Nothing
        If pilihgambar.FileName <> "" Then
            photo = Image.FromFile(pilihgambar.FileName)
            PictureBox2.Image = photo
            Try
                conn.Open()
                Dim MyByte As Byte() = ConvertImagetoByte(PictureBox2.Image)
                Dim UpdateImage As String = "UPDATE tb_useraccount SET user_image = @user_image WHERE user_account = @user_account AND user_password = @user_password"
                Dim MyCommand As New SqlCommand
                With MyCommand
                    .Connection = conn
                    .CommandText = UpdateImage
                    .Parameters.Add(New SqlParameter("@user_image", SqlDbType.VarBinary)).Value = MyByte
                    .Parameters.AddWithValue("@user_account", UserManager.UserAccountName)
                    .Parameters.AddWithValue("@user_password", UserManager.UserPasssword)
                End With
                MyCommand.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.ToString)
            Finally
                conn.Close()
            End Try
        Else
            If UserManager.UserImage IsNot Nothing Then
                PictureBox2.Image = UserManager.UserImage
            Else
                PictureBox2.Image = PictureBox2.InitialImage
            End If
        End If

-------------------------------------------