在vba和access上使用记录集时，如何复制最后一条记录并更改其中的字段

Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "SELECT * FROM YourTableName ORDER BY ID DESC"
Set rs = CurrentDb.OpenRecordset(strSQL)
rs.MoveFirst

Dim newRS As DAO.Recordset

Set newRS = CurrentDb.CreateRecordset
newRS.AddNew
For Each fld In rs.Fields
    newRS(fld.Name) = rs(fld.Name)
Next fld
newRS.Update

newRS.MoveFirst
newRS.Edit
newRS("FieldName") = "NewValue"
newRS.Update

rs.Close
Set rs = Nothing
newRS.Close
Set newRS = Nothing