“学生成绩”表含有字段（学号，姓名，数学，外语，专业，总分）。下列程序的功能是：计算每名学生的总分（总分=数学+外语+专业）。请在程序空白处填入适当语句，使程序实现所需要的功能。 　　Private Sub Command1_Click( ) 　　Dim cn As New ADODB.Connection 　　Dim rs As New ADODB.Recordset 　　Dim zongfen As New ADODB.Fileld 　　Dim shuxue As New ADODB. Fileld 　　Dim waiyu As New ADODB. Fileld 　　Dim zhuanye As New ADODB. Fileld 　　Dim strSQL As Sting 　　Set cn = CurrentProject.Connection 　　StrSQL = “Select*from成绩表” 　　rs.OpenstrSQL, cn, adOpenDynamic, adLockptimistic, adCmdText 　　Set zongfen = rs.Filelds(“总分”) 　　Set shuxue = rs.Filelds(“数学”) 　　Set waiyu = rs.Filelds(“外语”) 　　Set zhuanye = rs.Filelds(“专业”) 　　Do while 【1】 　　Zongfen = shuxue + waiyu + zhuanye 　　 【2】 　　rs.MoveNext 　　Loop 　　rs.close 　　cn.close 　　Set rs = Nothing 　　Set cn = Nothing 　　End Sub

2（）