第一个:
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 sql,con,1,3

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里面去了.

rs.Open "update ljc_report set 生产机型=" & "'" & scjxx & "'" & Space(1) & "," & "生产数量=" & "'" & scsll & "'" & Space(1) & "where 序号=" & "'" & xhh & "'", con, 1, 3

上面是我写程序的代码，测试无误，在字段与数值见不是简单的语句，有的时候应该以‘’的方式确定

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