ADOrs.ActiveConnection=ADOcn “第一步：在课程表Courses中查询是否存在与关键字相同的记录 (1)拼写查询字符串 strSQL= (2)执行查询语句 strSQL ‘第二步：如果记录已经存在，则退出程序 If Not Then MsgBox“记录已存在，不能继续增加” Exit Sub End If ‘第三步：将结果插人到课程表Courses中 strSQL=“insert Into courses(Cno,CName).Values(“”+Text 1+“’,‘”+Text2+“,)” strSQL End Sub 1064ADOrs. ActiveConnection = ADOcn ‘第一步z在课程表 o ur s s中查询是否存在与关键字相同的记录 (1)拼写查询字符串 strSQL= (2) 行查 strSQL ‘第二步z如果记录已经存在，则退出程序 If Not Then MsgBox" 能继 增加 Exit Sub End If ‘第三步E将结果插入到课程表 r s s中 strSQL="Insert Into ~ourses(Cno ，CName)Values( ‘"+τkxtl+"' ‘"+τext2+"')" strSQL End Sub 1064