求助：窗体更新数据表

todaynew

dim ssql as string
ssql="update A set A.字段1=(select B.字段1 from B where B.编号=A.编号),A.字段2=(select B.字段2 from B where B.编号=A.编号),......"
currentdb.execute ssql

也可以：
dim ssql as string
'删除A中存在于B表的记录
ssql="delete * from A where 编号 in (select 编号 from B))
currentdb.execute ssql
'插入B表所有记录
ssql="insert into A (*) select * from B"
currentdb.execute ssql