选择题 50.  采用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=CurrentProject.Connection
    strSQL="Select退休年龄from职工表"
    rs.Open strSQL,cn,adOpenDynamie,adLockoptinlistie,adCmdText
    Set fd=rs.Fields("退休年龄")
    Do While Not rs.EOF
    fd=fd+5
    【　　】
    rs.MoveNext
    Loop
    rs.Close
    cn.Close
    Set rs=Nothing
    Set en=Nothing
    End Sub
    程序【　　】处应填写的语句是______。