“学生成绩”表含有字段(学号，姓名，数学，外语，专业，总分)。下列程序的功能是：计算

问题：

“学生成绩”表含有字段(学号，姓名，数学，外语，专业，总分)。下列程序的功能是：计算每名学生的总分(总分=数学+外语+专业)。请在程序空白处填入适当语句，使程序实现所需要的功能。
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