Visual Basic.NET - imagenes desde access

Public Function GuardarImagen()

    Dim pe = Form1.DGVSTOCKPE.Item(0, Form1.DGVSTOCKPE.CurrentRow.Index).Value

    If Not Form1.picfoto Is Nothing Then

        Dim ms As New IO.MemoryStream

        Form1.picfoto.Image.Save(ms, Form1.picfoto.Image.RawFormat)

        Dim i() As Byte = ms.GetBuffer

        Dim save As String = "insert into tb_imagen (PE,imagen) Values(@PE,@imagen)"

        Dim cmd As New OleDbCommand(save, CON_ACC1)

        cmd.Parameters.Add(New OleDbParameter("@PE", pe))

        cmd.Parameters.Add(New OleDbParameter("@imagen", i))

        If (cmd.ExecuteNonQuery) Then

            MessageBox.Show("Imagen Guardada")

        Else

            MessageBox.Show("Imagen no Guardada")

        End If

        ms.Close()

    End If

End Function

Private Sub btnRecuperarImgBD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRecuperarImgBD.Click

    Dim dataTable As DataTable = dsImagem.Tables(0)

    If imgRecuperar.Image IsNot Nothing Then

        imgRecuperar.Image.Dispose()

    End If

    Dim fsImage As New FileStream("image.jpg", FileMode.Create)

    For Each dataRow As DataRow In dataTable.Rows

        If dataRow(0).ToString() = cboImagemID.SelectedItem.ToString() Then

            Dim blob As Byte() = DirectCast(dataRow(1), Byte())

            fsImage.Write(blob, 0, blob.Length)

            fsImage.Close()

            fsImage = Nothing

            imgRecuperar.Image = Image.FromFile("image.jpg")

            imgRecuperar.SizeMode = PictureBoxSizeMode.StretchImage

            imgRecuperar.Refresh()

        End If

    Next

End Sub