下列过程的功能是:将当前数据库文件中“学生表”的所有学生“年龄”加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 = _____【14】_____
rs.Update
rs. _____【15】_____
Loop
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
End Sub