![](https://lstatic.shangxueba.com/sxbzda/h5/images/m_q_title.png)
下列子过程的功能是:当前数据库文件中的 “ 学生表 ” 的学生 “ 年龄 ” 都加 1 ,请在程序空白
Private Sub SetAgePlus1_Click()
Dim a As DAO.Database
Dim rs As DAO.Recordset
Dim fd As DAO.Field
Set db = CurrentDb()
Set rs = db.OpenRecordset(" 学生表 ")
Set fd = rs.Fields(" 年龄 ")
Do While Not rs.EOF
rs.Edit
fd =____[14]____
rs.Update
___[15]___
Loop
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing
End Sub
![](https://lstatic.shangxueba.com/sxbzda/h5/images/tips_org.png)