问题详情

下列过程的功能是：将当前数据库文件中“学生表”的所有学生“年龄”加1。
Private Sub SetAgeplus2_Click()
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=__________
rs．Update
rs．__________
Loop
rs．Close
cn．Close
Set rs= Nothing
Set cn=Nothing
End Sub
横线处应填写的内容是()。
A.fd-1 0pen
B.fd+1 close
C.fd+1 MoveNext
D.fd-1 Recordset请帮忙给出正确答案和分析，谢谢！