VBA ADO数据库编程 有挂起的更改行数已超过限制错误

，这段程序中加黑 加下划线  倾斜  红色的关键字用错，出现上述错误。错误关键字是：adLockBatchOptimistic

'ADO 方式访问数据库方法

Private Sub setageplus0()
Dim cn  As New ADODB.Connection
Dim rs  As New ADODB.Recordset
Dim fd As ADODB.Field
Dim strconnect As String
Dim strSQL As String

strconnect = "d:\教学管理.accdb"
cn.provider = "Microsoft.ACE.OLEDB.12.0"
cn.Open strconnect

'strSQL = "select 年龄 from 学生"
strSQL = "select * from 学生"

rs.Open strSQL, cn, adOpenDynamic, adLockOptimistic, adCmdText
  Set fd = rs.Fields("年龄")
   
    'Debug.Print IsNumeric(fd)

 Do While Not rs.EOF
        Debug.Print rs.Fields("姓名"); fd
        fd = fd + 1       ' Debug.Print rs.GetString
        
    rs.Update
    rs.MoveNext
    
  Loop
    Debug.Print "---------"

rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing

End Sub