الصورة ما تتخزن مع ان الكود صح

هلا انا عندي قاعدة بيانات فيها حقل يتعامل مع الصور من خلا StoredProcedure اضيف واحدث على table

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

هذا كود الاضافة

'''' <summary>
    '''' This Method For Add Emloyee
    '''' </summary>
    Public Function Insert_Employee(ByVal Employee_ID_1 As Integer, ByVal Employee_Name_E As String, ByVal Employee_Name_A As String, ByVal Department As String, ByVal Resigned As String, ByVal Date_Of_Resignation As Date, ByVal photo As System.Drawing.Image, ByVal Birth_Day As Date, ByVal Jobtitle As String, ByVal Date_Of_Appointment As Date, ByVal Nationality As String, ByVal Bank As String, ByVal Bank_Account_Number As Integer, ByVal Bank_Branch As String, ByVal Mobile As Integer) As String
        conn.ConnectionString = con
        Dim m As New IO.MemoryStream()
        Dim cmd2 As New SqlCommand
        conn.Open()
        cmd2.CommandType = CommandType.StoredProcedure
        cmd2.Connection = conn
        cmd2.CommandText = "Insert_Employee_1"
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '' 1
        cmd2.Parameters.Add("@Employee_ID_1", SqlDbType.Int, 4).Value = Employee_ID_1
        '' 2
        cmd2.Parameters.Add("@Employee_Name_E_2", SqlDbType.NVarChar, 50).Value = Employee_Name_E
        '' 3
        cmd2.Parameters.Add("@Employee_Name_A_3", SqlDbType.NVarChar, 50).Value = Employee_Name_A
        '' 4
        cmd2.Parameters.Add("@Department_4", SqlDbType.NVarChar, 50).Value = Department
        '' 5
        cmd2.Parameters.Add("@Resigned_5", SqlDbType.NVarChar, 50).Value = Resigned
        '' 6
        cmd2.Parameters.Add("@Date_Of_Resignation_6", SqlDbType.DateTime, 8).Value = Date_Of_Resignation
        '' 7
        cmd2.Parameters.Add("@Photo_7", SqlDbType.Image, 16).Value = photo
        photo.Save(m, System.Drawing.Imaging.ImageFormat.Jpeg)
        cmd2.Parameters("@Photo_7").Value = m.GetBuffer
        '' 8
        cmd2.Parameters.Add("@Birth_Day_8", SqlDbType.DateTime, 8).Value = Birth_Day
        '' 9
        cmd2.Parameters.Add("@Jobtitle_9", SqlDbType.NVarChar, 50).Value = Jobtitle
        '' 10
        cmd2.Parameters.Add("@Date_Of_Appointment_10", SqlDbType.DateTime, 8).Value = Date_Of_Appointment
        '' 11
        cmd2.Parameters.Add("@Nationality_11", SqlDbType.NVarChar, 50).Value = Nationality
        '' 12
        cmd2.Parameters.Add("@Bank_12", SqlDbType.NVarChar, 50).Value = Bank
        '' 13
        cmd2.Parameters.Add("@Bank_Account_Number_13", SqlDbType.Int, 4).Value = Bank_Account_Number
        '' 14
        cmd2.Parameters.Add("@Bank_Branch_14", SqlDbType.NVarChar, 50).Value = Bank_Branch
        '' 15
        cmd2.Parameters.Add("@Mobile_15", SqlDbType.Int, 4).Value = Mobile
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        cmd2.ExecuteNonQuery()
        conn.Close()
    End Function

وهذا كود التحديث

  Public Function Update_Employee(ByVal Employee_ID_1 As Integer, ByVal Employee_Name_E As String, ByVal Employee_Name_A As String, ByVal Department As String, ByVal Resigned As String, ByVal Date_Of_Resignation As Date, ByVal photo As System.Drawing.Image, ByVal Birth_Day As Date, ByVal Jobtitle As String, ByVal Date_Of_Appointment As Date, ByVal Nationality As String, ByVal Bank As String, ByVal Bank_Account_Number As Integer, ByVal Bank_Branch As String, ByVal Mobile As Integer) As String
        conn.ConnectionString = con
        Dim m As New IO.MemoryStream()
        Dim cmd2 As New SqlCommand
        conn.Open()
        cmd2.CommandType = CommandType.StoredProcedure
        cmd2.CommandText = "Update_Employee_1"
        cmd2.Connection = conn
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        '' 1
        cmd2.Parameters.Add("@Employee_ID_1", SqlDbType.Int, 4).Value = Employee_ID_1
        '' 2
        cmd2.Parameters.Add("@Employee_ID_2", SqlDbType.NVarChar, 4).Value = Employee_ID_1
        '' 3
        cmd2.Parameters.Add("@Employee_Name_E_3", SqlDbType.NVarChar, 50).Value = Employee_Name_E
        '' 4
        cmd2.Parameters.Add("@Employee_Name_A_4", SqlDbType.NVarChar, 50).Value = Employee_Name_A
        '' 5
        cmd2.Parameters.Add("@Department_5", SqlDbType.NVarChar, 50).Value = Department
        '' 6
        cmd2.Parameters.Add("@Resigned_6", SqlDbType.NVarChar, 50).Value = Resigned
        '' 7
        cmd2.Parameters.Add("@Date_Of_Resignation_7", SqlDbType.DateTime, 8).Value = Date_Of_Resignation
        '' 8
        cmd2.Parameters.Add("@Photo_8", SqlDbType.Image, 16)
        cmd2.Parameters("@Photo_8").Value = photo
        photo.Save(m, System.Drawing.Imaging.ImageFormat.Jpeg)
        cmd2.Parameters("@Photo_8").Value = m.GetBuffer
        '' 9
        cmd2.Parameters.Add("@Birth_Day_9", SqlDbType.DateTime, 8).Value = Birth_Day
        '' 10
        cmd2.Parameters.Add("@Jobtitle_10", SqlDbType.NVarChar, 50).Value = Jobtitle
        '' 11
        cmd2.Parameters.Add("@Date_Of_Appointment_11", SqlDbType.DateTime, 8).Value = Date_Of_Appointment
        '' 12
        cmd2.Parameters.Add("@Nationality_12", SqlDbType.NVarChar, 50).Value = Nationality
        '' 13
        cmd2.Parameters.Add("@Bank_13", SqlDbType.NVarChar, 50).Value = Bank
        '' 14
        cmd2.Parameters.Add("@Bank_Account_Number_14", SqlDbType.Int, 4).Value = Bank_Account_Number
        '' 15
        cmd2.Parameters.Add("@Bank_Branch_15", SqlDbType.NVarChar, 50).Value = Bank_Branch
        '' 16
        cmd2.Parameters.Add("@Mobile_16", SqlDbType.Int, 4).Value = Mobile
        ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
        cmd2.ExecuteNonQuery()
        conn.Close()

وانو كل البياتات تنضاف عادي على الداتابيس بس الصورة ولا في اي خطاء

ياريت لو واحد يحكيلي الخطاء وين وشكررررررررر