Update image in MS Access - نسخة قابلة للطباعة

PHP كود :
Dim p() As Byte

            Dim picstream As New MemoryStream
            If IsNothing(PictureBox1.Image) Then
                MsgBox("تاكد من وجود صورة", MsgBoxStyle.Critical, "ضافة سجل")
                Exit Sub
            End If

            PictureBox1.Image.Save(picstream, System.Drawing.Imaging.ImageFormat.Jpeg)

            p = picstream.ToArray


saveinto.Connection = con
            saveinto.CommandType = CommandType.Text
            saveinto.CommandText = " update table1 set name=@name, pic=@pic where name= @name"
            saveinto.Parameters.AddWithValue("@name", OleDbType.VarChar).Value = TextBox7.Text
            saveinto.Parameters.AddWithValue("@pic", OleDbType.Binary).Value = p