“学生成绩”表含有字段(学号，姓名，数学，外语，专业，总分)。下列程序的功能是：计算每名学生的总分(总分=数学+外语+专业)。请在程序空白处填入适当语句，使程序实现所需要的功能。
Private Sub Command1_Click()
Dim cn As New ADODBConnection
Dim rs As New ADODB.Recordset
Dim zongfen As ADODB.Field
Dim shuxue As ADODB.Field
Dim waiyu As ADODB.Field
Dim zhuanye As ADODB.field
Dim strSQL As String
Set cn=CurrentProject.Connection
strSQL="Select *from 学生成绩"
rs.OpenstrSQL，cn，adOpenDynamic，adLockOptimistic，adCmdText
Set zongfen=rs.Fields("总分")
Set shuxue=rs.Fields("数学")
Set waiyu=rs.Fields("外语")
Set zhuanye=rs.Fields("专业")
Do While (14)
zongfen=shuxue+waiyu+zhuanye
(15)
rs.MoveNext
Loop
rs.Close
cn.Close
Set rs=Nothing
Set cn=Nothing
End Sub
参考答案：rs.Update
解析： Do while…Loop语句是在条件式结果为真时，执行循环体，并持续到条件式结果为假或执行到选择性Exit Do语句而退出循环。在程序中，本循环的作用是遍历记录，求出总分，然后提交。所以本循环的条件式为“Not rs.EOF”(EOF函数的作用是判断是否到达记录的结尾，在到达结尾前，该函数的返回值都是false，所以本空rs.EOF前需要加Not)。通过语句“zongfen=shuxue+Waiyu+zhuanye”求出数学、外语、专业等字段值的总和，最后使用语句“rs.Update”提交该结果。