[صالح عبدالله]

السلام عليكم ورحمة الله وبركاته 
استخدم الكود التالي للتعديل على بيانات محفوظة في جدول في قاعدة بيانات اكسس ولكن عملية التعديل لاتتم ولايظهر لي الخطأ الذي وقعت فيه مع العلم أن نوعية البيانات في حقول جدول اكسس هي نص مختصر
لكم جزيل شكري 

 Dim cmdupdate1 As OleDbCommand = New OleDbCommand("update Student_Data set Student_Num=@Student_Num,Hawia_Num=@Hawia_Num,Student_Name=@Student_Name,Study_Path=@Study_Path,Saff=@Saff,Shoba=@Shoba,Phone=@Phone,Phone_Star=@Phone_Star  where ID1=@ID1", con)

        cmdupdate1.Parameters.Add("@ID1", OleDbType.Integer).Value = CInt(TextBox2.Text)

        cmdupdate1.Parameters.Add("@Student_Num", OleDbType.VarChar).Value = TextBox3.Text

        cmdupdate1.Parameters.Add("@Hawia_Num", OleDbType.VarChar).Value = TextBox4.Text

        cmdupdate1.Parameters.Add("@Student_Name", OleDbType.VarChar).Value = ComboBox1.Text

        cmdupdate1.Parameters.Add("@Study_Path", OleDbType.VarChar).Value = ComboBox3.Text

        cmdupdate1.Parameters.Add("@Saff", OleDbType.VarChar).Value = ComboBox1.Text

        cmdupdate1.Parameters.Add("@Shoba", OleDbType.VarChar).Value = ComboBox2.Text

        cmdupdate1.Parameters.Add("@Phone", OleDbType.VarChar).Value = txtcode.Text

        cmdupdate1.Parameters.Add("@Phone_Star", OleDbType.VarChar).Value = "*" + txtcode.Text + "*"

        con.Close()

        con.Open()

        If cmdupdate1.ExecuteNonQuery = 1 Then

            con.Close()

            MsgBox("  تم التعديل بنجاح  ")

        End If