肾病综合征患儿，禁盐两个月，近三天频繁呕吐，水肿未消退，嗜睡，血压下降，惊厥二次，诊断可能为

A．肾病综合征伴病毒性脑炎

B．肾病综合征伴急性胃肠炎

C．肾病综合征伴低钙惊厥

D．肾病综合征伴低钠血症

E．肾病综合征伴低钾血症

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