选择题 6.  采用ADO完成对“教学管理.accdb”文件中“学生表”的学生年龄都加1的操作，程序中下划线处应填写的是______。
    Sub SetAgePlus()
    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
    Set cn = currentProject.Connection
    strSQL = "Select年龄from学生表"
    rs.Open strSQL, cn, adopenDynamic, adLockoptimistic, adCmdText
    Set fd = rs.Fields("年龄")
    Do While Not rs.EOF
    fd = fd + 1
    __________
    rs.MoveNext
    Loop
    rs.Close
    cn.Close
    Set rs = Nothing
    Set cn = Nothing
    End Sub