29.参考答案及评分要点： ‘第一步：在学生成绩表中查询是否存在关键字相同的记录 StrSQL=“Select*From学生成绩表Where学号=”+Combo1.Text+“, And课程号=”+Combo2.Text十“’” (本步6分) ADOrs.Open StrSQL (本步4分) “第二步：如果关键字重复，则退出程序 If Not ADOrs.EOF Then sgBox“记录已存在，不能继续增加” Exit Sub End If ‘第三步：将结果插人到学生成绩表中 StrSQL=“Insert Into学生成绩表（学号，课程号，成绩）Values(‘”+Combol. Text+“’,t”+Combo2.Text+“’,”+Text3.Text+“)” (本步6分) ADOcn.Execute StrSQL (本步4分) End Sub 116829. 及评分要点 ‘第一步 z在学生成绩表中查询是否存在关键字相同的记录 StrSQL="Select 提From 表Where 学号 川"+Combol. Text+"' And 十Combo2. Text+" , " (本步 ADOrs. Open StrSQL (本步 ‘第二步:如果关键字重复，则退出程序 If Not ADOrs. EOF Then MsgBox" 增加 Exit Sub End If ‘第三步z将结果插入到学生成绩表中 StrSQL= "Insert Into 学生 ValuesC ‘"+Combol. Text+" 十Combo2. Text+" " "+Text3. Text+")" (本步 6分) ADOcn. Execute StrSQL (本步 4分) End Sub 1168