如何实现年龄加1

点击下载此附件

麻烦帮了看一下，提示出错：

Private Sub Command0_Click()
    Dim con As New ADODB.Connection   '声明一个连接对象变量
    Dim res As New ADODB.Recordset     '声明一个记录集对象变量
    Dim fld As ADODB.Field             '声明一个字段变量
    Dim strConnect As String             '声明一个用于连接的字符串类型变量
    Dim strSQL As String                '声明一个用于SQL语句的字符串类型变量
   
     Set con = CurrentProject.Connection
   
    strSQL = "Select 年龄 from 123"    '设置SQL查询命令字符串
    res.Open strSQL, con, abOpenDynamic, adLockOptimistic, adCmdText  '打开记录集
    Set fld = res.Fields("年龄")   '设置"年龄"字段引用
    Do While Not res.EOF       '对记录集是用循环结构进行遍历
        fld = fld + 1           '"年龄"字段值加1
        res.Update             '写入数据库，保存年龄字段值
        res.MoveNext          '记录指针移动至下一个
    Loop
    res.Close             '关闭记录集
    con.Close             '关闭数据库连接
    Set res = Nothing     '回收记录集对象变量 res的内存占用空间
    Set con = Nothing     '回收连接对象变量con的内存占用空间

End Sub