第一个:
INSERT INTO YSKQ
(bh,xm, RQ,sj,jx,jh,bz)
SELECT bh,xm, RQ, SJ,jx,jh,bz
FROM yskq1
WHERE not EXISTS
(SELECT bh,xm, RQ, SJ,jx,jh,bz
FROM yskq
WHERE yskq1.bh = yskq.bh AND yskq1.RQ = yskq.RQ AND yskq1.SJ = yskq.SJ )

delete from yskq1

第二个
update yskq
set xm=employee.姓名
from yskq,employee
where yskq.bh=employee.bh

请各位指点下.怎么把上面的语句写到VB里去执行?

谢谢啦~~~~~~~~~~~~~~~~~~~~~~

rs.Open ("update yskq Set xm = employee.姓名 From employee,yskq Where yskq.bh = employee.bh"), Conn, 1, 3
不行呀.提示是
语法错误(操作丢失),在查询'employee.姓名 from employee '中

SQL语句呀.本来我是放在SQL的存储过程里面的.现在要改成ACCESS..
所以只好把语句放进VB里面去了.

谢谢各位.我已经通过存储过程实现了