Private Sub Commandl_Click() ‘声明一个记录集对象 Dim ADOrs As New Recordset ‘将记录集对象与已建立的数据库联接对象ADOcn绑定 ADOrs.ActiveConnection=ADOcn ‘第一步：在物资台账表T中查询是否存在关键字相同的记录 (1)拼写查询字符串 strSQL= (2)执行查询语句 strSQL “第二步：如果记录已经存在，则退出程序 If Not Then MsgBox“记录已存在，不能继续增加” Exit Sub End If “第三步：将结果插人到物资合账表T中 strSQL=“Insert Into T(TNo,TN,TD)Values(”+Textl+“’,‘”+Text2+“,” +Text3+“)” strSQL End Sub 1385Private Sub CommandLClickO ‘声明一个记录集对象 Dim ADOrs As New Recordset ‘将记录集对象与已建立的数据库联接对象 绑定 ADOrs. ActiveConnection= ADOcn ‘第一步:在物资台账表T中查询是否存在关键字相同的记录 (1)拼写查询字符串 strSQL= (2) 执行查 strSQL ‘第二步:如果记录已经存在，则退出程序 If Not Then MsgBox" 续增 Exit Sub End If ‘第三步:将结果插入到物资合账表T中 strSQL="Insert Into T (TNo , TN , TD) Values (‘"+ Textl +" , ,‘"+ Text2 +"'" +")" strSQL End Sub 1385