下列过程的功能是：将当前数据库文件中“学生表”的所有学生“年龄”加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

rs. （）

治疗阳虚便秘的代表方是（）

A.温脾汤合半硫丸

B.麻子仁丸

C.济川煎

D.六磨汤

E.润肠丸