29.参考答案： ‘第一步：在电影表Movie中查询是否存在关键字相同的记录 strSQL=“Select Mno From Movie Where Mno=t”+Textl+“y" ADOrs.Open strSQL(本小点4分) “第二步：如果记录已经存在，则退出程序 If Not ADOrs..EOF Then(本小点4分) MsgBox“记录已存在，不能继续增加” Exit Sub End If ‘第三步：将结果插入到电影表Movie中 strSQL=“Insert into Movie(Mno,Title)Values(”+Textl+“',”+Text2+“)”(本 小点8分) ADOcn..Execute strSQL(本小点4分) End Sub 137929. ‘第一步:在电影表 o v e中查询是否存在关键字相同的记录 strSQL="Select Mno From Movie Where Mno =‘" + Text1 + "'" ADOrs. Open strSQL (本小点 ‘第二步:如果记录已经存在，则退出程序 If Not ADOrs. EOF Then (本小点 MsgBox" Exit Sub End If ‘第三步z将结果插入到电影表 ov e中 strSQL ="Insert into Movie (Mno ,Title)Values( ‘"+Text1 +'" ,‘ " + T ext2+ " ' ) " (本 小点 ADOcn. Execute strSQL (本小点 End Sub 1379