اين الخطاء في في كود البروسيجر او كود ادخال الصورة

هلا مرحبا انا عندي داتا بيس عملت بروسيجر لادخال الصورة البروسيجر صح بس المشكلة الصورة ماتدخل وما يطلع اينوع من انواع الخطاء بس مكان الصورة فاضي

وهذا كود الكلاس الفي البروسيجر

Public Function Add_(ByVal Pic_1 As System.Drawing.Image) As String

Dim Image As New IO.MemoryStream()

Pic_1.Save(Image, System.Drawing.Imaging.ImageFormat.Jpeg)

con.ConnectionString = Main.con

con.Open()

Dim cmd As New SqlCommand

cmd.Connection = con

cmd.CommandType = CommandType.StoredProcedure

cmd.CommandText = "insert_PIC_1"

cmd.Parameters.Add("@Image_2", SqlDbType.Binary, 50)

cmd.Parameters("@Image_2").Value = Image.GetBuffer

cmd.ExecuteNonQuery()

con.Close()

End Function

هلا هذا في كلاس

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.OpenFileDialog1.ShowDialog()

Me.TextBox1.Text = Me.OpenFileDialog1.FileName

Try

Me.PictureBox1.Image = New Drawing.Bitmap(TextBox1.Text)

Catch ex As Exception

End Try

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

'

'Add

'

Dim t As New ClassLibrary1.Add

t.Add_(PictureBox1.Image)

End Sub

وهذا كود في البرنامج

ايش الخطاء الي مايخلي الصورة تنحفظ