访问记录集不更新表

Question

我正在学习如何处理 Access VBA 记录集。

在下面的示例中，我使用 SQL 查询打开我的记录集并使用 strName 列对数据进行排序。当我调试代码时，我可以看到查询正在运行，但是我不知道为什么表没有使用已排序的行进行更新。有什么建议吗？

Option Compare Database
Option Explicit

Sub OrderDB()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim mySortedRS As DAO.Recordset

    'Set the DAO database to current Access db
     Set db = CurrentDb

    'Open the table as the recordset
     Set rs = db.OpenRecordset("SELECT * FROM Table1 order by strName", dbOpenDynaset)
     
    'Process the rows
    Do
    
      Debug.Print rs!strName
      rs.Edit
      rs.Update
      rs.MoveNext
      
    Loop Until rs.EOF
      
    'Cleanup
    rs.Close
    Set rs = Nothing
   
End Sub