单选题 要将“职工管理.accdb”文件中“职工情况”表中男职工的“退休年限”字段加上5，程序中横线处应填写的语句是______。
Sub AgePlus( )
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 an=CurrentProject. Connection
strSQL= "Select退休年限from职工情况where性别="男""
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