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

تم حل المشكلة والحمد لله بإستخدام الكود التالي 

  Dim saveinto As New OleDbCommand

        saveinto.Connection = con

        saveinto.CommandType = CommandType.Text

        saveinto.CommandText = " 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"

        saveinto.Parameters.AddWithValue("@Student_Num", (TextBox3.Text))

        saveinto.Parameters.AddWithValue("@Hawia_Num", (TextBox4.Text))

        saveinto.Parameters.AddWithValue("@Student_Name", (TextBox1.Text))

        saveinto.Parameters.AddWithValue("@Study_Path", (ComboBox3.Text))

        saveinto.Parameters.AddWithValue("@Saff", (ComboBox1.Text))

        saveinto.Parameters.AddWithValue("@Shoba", (CInt(ComboBox2.Text)))

        saveinto.Parameters.AddWithValue("@Phone", (txtcode.Text))

        saveinto.Parameters.AddWithValue("@Phone_Star", (txtcode.Text))

        saveinto.Parameters.AddWithValue("@ID1", (TextBox2.Text))

        If con.State = ConnectionState.Open Then con.Close()

        con.Open()

        saveinto.ExecuteNonQuery()

        con.Close()