access中查询问题,急啊！！在线等10小时，求高手回答

[lone2003]

据Sheet1中任何人的AA查Sheet2中和AA（在Sheet2中唯一）所对应的该人的职称（字段1的值）及工资档次（表中字段名），且要将这两结果分别填在Sheet1中字段3和字段4
Sheet1
BH XM 字段3 字段4 AA AB
1001 李新国 879 377
1002 赵运林 915 392
Sheet2
字段1 一档 二档 三档 四档 五档
正高 785 850 915 995 1075
副高 576 619 662 705 748

[changechange]

currentproject.connection.execute "select AA,职称，档次 into tb from Sheet2 where AA in (select AA from Sheet1)"
dim rs as new adodb.recordset
rs.open "select * from tb",currentproject.connection,1,1
do until rs.eof
currentproject.connection.execute "update Sheet1 set 字段3='"& rs("职称") &"',字段4='"&rs("档次")&"' where AA='"&rs("aa")&"'"

loop

[520zyb]

据Sheet1中任何人的AA查Sheet2中和AA（在Sheet2中唯一）所对应的该人的职称（字段1的值）及工资档次（表中字段名），且要将这两结果分别填在Sheet1中字段3和字段 :
select AA,职称，档次 into #tb from Sheet2 where AA in (select AA from Sheet1)
select #tb
go top
do while not eof()
update Sheet1 set 字段3=#tb.职称,字段4=#tb.档次 where AA=#tb.AA
skip
enddo