A3、A4型题
子过程Plus完成对当前库中“学生表”的年龄字段都加1的操作。
Sub Plus()
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Reeordset
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.Update
______
Loop
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing
End Sub
程序中______处应该填写的语句是______。