请教高手，怎样用B数据库中的某字段去更新A数据库中的字段？

[Kittle]

请看下面的一段程序：
Dim astr As String
Dim dbAdd As Database
Dim dbOld As Database
Set dbAdd = DBEngine.Workspaces(0).OpenDatabase("e:\我的程序\新建文件夹\zjs.mdb")
Set dbOld = DBEngine.Workspaces(0).OpenDatabase("e:\我的程序\新建文件夹\zjs1.mdb")
astr = "UPDATE zjs SET [zjs].[工资]=[zjs1].[工资] WHERE [dbAdd].[姓名]=[dbOld].[姓名]"
dbAdd.Execute astr

dbAdd.Close
dbOld.Close

上面一段程序目的是想用数据库zjs1中的工资值更新zjs中的工资字段，但运行却没有效果。请高手指教。

[AFIHA]

要打开两个记录集吧

[gmc007]

同意楼上。
如果是在同一个MDB的两个SHEET，就可以像你这样了。

[woowindice]

up