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

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

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

  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()