采用 ADO 完成对"教学管理.mdb"文件中"学生表"的学生年龄都加1的操作，程序空白处应填写的是 Sub SetAgePlus( ) 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=fd+1 ___________ rs.MoveNext Loop rs.Close cn.Close Set rs=Nothing Set cn=Nothing End Sub