要将“职工管理.accdb”文件中“职工情况” 表中男职工的“退休年限” 字段加上 5， 程序[ ]处应填写的语句是
Sub AgePlus()
Dim cn As New ADOD[B].Connection ´连接对象
Dim rs As New ADOD[B].Recordset ´记录集对象
Dim fd As ADOD[B].Field ´字段对象
Dim strConnect As String ´连接字符串
Dim strSQL As String ´查询字符串
Set cn=CurrentProject.Connection
strSQL="Select 退休年限 from 职工情况 where 性别=´男´ "
rs.Open strSQL, en, adOpenDynamie, 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