访问具有IDENTITY列的SQL Server表时，如何在OpenRecordset中使用dbSeeChanges选项？

Private Sub update ()    
   Dim db As Database
   Set db = CurrentDb
   Dim rs As Recordset

   Set rs = db.OpenRecordset("SELECT * From Table", dbOpenDynaset, dbSeeChanges)
   db.Execute ("UPDATE Table SET Path = '" & A.Value & "' WHERE B = '" & B.Value & "'")

   db.Close
End Sub
Private Sub update ()    
   Dim db As Database