1把表中各记录重新排序 2。为记录某字段赋值 还有，诸如rs.update 的语句用的时候告诉非法，？？？？？？

Question

Dim cnn As ADODB.Connection
   Dim rs As ADODB.Recordset
   Set cnn = New ADODB.Connection
   cnn.Open "sp", "sa", ""
   set rs=cnn.exceute("selcet *from mytable order by 成绩 desc")   rs.update
   rs.addnew
   rs.fields(1)=text1.text
   rs.update
我要达到的目的：
     1。把表中各记录重新排序
     2。为记录某字段赋值错误提示：
  当前记录集不支持更新，这可能是提供程序的限制，也可能是选定锁定类型的限制
怎么来修改程序？？？？？？？？？？？？？等待答案