[فراس محي]

السلام عليكم 
ممكن تعديل هذا الكود لان كل مارغبت بتشغيل التعديل على سجل معين بتضهر رساله خطاء ايش الحل رحم الله والديكم 

كود :

Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
      dataconnection()
       cmd.Connection = cnn
       cmd.CommandText = " UPDATE [info] " & _
                  "([name],[department],[dgree],[pagn],[typepag],[typegan],[ngan],[unti]) VALUES" & _
            "('" & TextBox12.Text & "','" & ComboBox2.Text & "','" & ComboBox3.Text & "','" & TextBox10.Text & "','" & TextBox9.Text & "','" & ComboBox4.Text & "','" & TextBox8.Text & "','" & TextBox7.Text & "')"
       cmd.ExecuteNonQuery()
       cnn.Close()
       clear1()

       MessageBox.Show("تم التعديل بنجاح", "تعديل ", MessageBoxButtons.OK, MessageBoxIcon.Information)
   End Sub