Private Sub Command1_Click() ‘声明一个记录集对象 Dim ADOrs As New Recordset ‘将记录集对象与已建立的数据库联接对象ADOcn绑定 ADOrs.ActiveConnection=ADOcn “第一步：在电影表Moie中查询是否存在关键字相同的记录 strSQL=“Select Mno From Movie Where Mno=t”+Textl+“,” strSQL “第二步：如果记录已经存在，则退出程序 If Not Then MsgBox“记录已存在，不能继续增加” Exit Sub End If ‘第三步：将结果插人到电影表Movie中 strSQL strSQL End Sub 1376Private Sub Command1一Cliek() ‘声明一个记录集对象 Dim ADOrs As New Reeordset ‘将记录集对象与已建立的数据库联接对象 n绑定 ADOrs. Aeti veConneetion = ADOen ‘第一步z在电影表 o v e中查询是否存在关键字相同的记录 strSQL="Seleet Mno From Movie Where Mno =‘" + Text1 + ",,, strSQL ‘第二步z如果记录已经存在，则退出程序 If Not Then MsgBox" 能继续 Exit Sub End If ‘第三步z将结果插入到电影表 e中 strSQL = strSQL End Sub 1376