ما هو الخطأ في كود التعديل؟

ما هو الخطاً في هذا الكود

مع العلم أنني جربت أظهار مسج وضبط لكن بتنفيذ التعديل لم يضبط

 Try


            con.Open()

            com_update.Parameters("e7tiajat").Value = TextBox_ahtyajat.Text
            com_update.Parameters("from_dateg_d").Value = ComboBox_d_d_from.SelectedItem
            com_update.Parameters("from_dateg_m").Value = ComboBox_d_m_from.SelectedItem
            com_update.Parameters("from_dateg_y").Value = ComboBox_y_from.SelectedItem
            com_update.Parameters("from_datehej_d").Value = ComboBox_h_d_from.SelectedItem
            com_update.Parameters("from_datehej_m").Value = ComboBox_h_m_from.SelectedItem
            com_update.Parameters("from_datehej_y").Value = ComboBox_h_y_from.SelectedItem
            com_update.Parameters("note").Value = TextBox_molahdat.Text
            com_update.Parameters("pro_name").Value = ComboBox_prp.Text
            com_update.Parameters("to_dateg_d").Value = ComboBox_d_d_to.SelectedItem
            com_update.Parameters("to_dateg_m").Value = ComboBox_d_m_to.SelectedItem
            com_update.Parameters("to_dateg_y").Value = ComboBox_d_y_to.SelectedItem
            com_update.Parameters("to_datehej_d").Value = ComboBox_h_d_to.SelectedItem
            com_update.Parameters("to_datehej_m").Value = ComboBox_h_m_to.SelectedItem
            com_update.Parameters("to_datehej_y").Value = ComboBox_h_y_to.SelectedItem
            com_update.Parameters("vinerycat").Value = TextBox_vi.Text
            If RadioButton_nofed.Checked = True Then
                com_update.Parameters("execution").Value = "نفذ"
            Else
                com_update.Parameters("execution").Value = "لم ينفذ"
            End If

            Dim dgcount As Integer = DataGrid1.BindingContext(DataGrid1.DataSource, DataGrid1.DataMember).Count
            Dim i As Integer
            For i = 0 To dgcount - 1
                com_update.Parameters("Original_emp_id").Value = DataGrid1.Item(i, 0)
                com_update.Parameters("emp_name1").Value = DataGrid1.Item(i, 1)
                com_update.Parameters("emp_name2").Value = DataGrid1.Item(i, 2)
                com_update.Parameters("emp_name3").Value = DataGrid1.Item(i, 3)
                com_update.Parameters("emp_name4").Value = DataGrid1.Item(i, 4)
                com_update.ExecuteNonQuery()
          ()
                'MessageBox.Show(DataGrid1.Item(i, 0))

            Next

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        Finally
            con.Close()
        End Try