请大家帮忙！

Question

在往一个数据库中添加记录时，如何实现如下功能： 
  添加一个记录到第一个数据表时，如果另一个数据表中有此记录才允许添加，两个数据表的字段名称相同。 
  请大家帮忙！ 

Answer 1

rs1
rs2
dim squery as string
squery ="select * from tbl2 where id='"& id1 & "'"
set rs2=cn.execute(squery)
if rs2.RecordCount>0 then
  rs1.updata
else
  exit sub
endif

Answer 2

cn.Execute "if exists (select * from B where ...) insert into A values (...)"