选择题   采用ADO对“职工管理.accdb”文件中“职工表”的字段“退休年龄”加5。
    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=CmxentProject.Connection
    strSQL='Select 退休年龄 from 职工表'
    rs.Open strSQL,cn,adOpenDynamic,adLockOptimistic,adCmdText
    Set fd=rs.Fields('退休年龄')
    Do While Not rs.EOF
    fd=fd+5
    ______
    rs.MoveNext
    Loop
    rs.Close
    cn.Close
    Set rs=Nothing
    Set cn=Nothing
    End Sub
    程序中______处应填写的语句是______。
 
【正确答案】 B
【答案解析】程序中“Do While Not rs.EOF”中的“rs.EOF”表示文件记录是否是该查询结果集的最后一条记录,如果是,则返回真,否则返回假。 “rs.Edit”表示该结果集处于编辑状态。“rs.Update”表示将上面的字段数据操作进行更新,只有执行了该更新操作,结果集中的数据才会被修改。“rs.MoveNext”表示从结果集的当前记录移动到下一条记录上。 “Update”是SQL语句中用来更新查询的关键字。 综上所述,应选择选项B。