只用一条语句就不知道了,可用以下过程
假设关键字段名为 字段3
Rs.open "Select 字段3,字段1 from 表A where 字段3 in (Select 字段3 from 表B where 字段2 is Null)",Conn,1,1
If not Rs.EOF then
Rs.MoveFirst
Do while not Rs.EOF
Conn.Excute("Update 表B Set 字段2 = '" & Rs.Fields("字段1") & "' where 字段3 = '" & Rs.Fields("字段3") & "')")
Rs.Movenext
Loop
Endif
Rs.close