在VB中使用Sql = "update aa1 set aa1.职称=aa.职称 from aa1inner join aa on aa1.姓名=aa.姓名",出现操作符丢失，在查询表达式中，怎么解决？很急，谢谢

Private Sub Command1_Click()
Dim db As Database
Set db = OpenDatabase(App.Path + "\db.mdb")
Sql = "update aa1 set aa1.职称=aa.职称 from aa1,aa where aa1.姓名=aa.姓名"
db.Execute Sql
End Sub

你好，两个表中都有数据，只是把aa1中的职称数据更新为aa中的职称，运行后，但aa.姓名是空的，而且aa.职称是空的，所以会出现操作符丢失，在查询表达式中，但我不知道怎么解决，请教高手。谢谢

用Sql = "update aa1 set aa1.职称=aa.职称 from aa where aa1.姓名=aa.姓名" 出现操作符丢失，在查询表达式中，怎么解决？很急，谢谢

你好，我是用VB编写的

你好，我是用VB+access编写的

Private Sub Command1_Click()
Dim db As Database
Set db = OpenDatabase(App.Path + "\db.mdb")
Sql = "update aa1 set aa1.职称=aa.职称 from aa1,aa where aa1.姓名=aa.姓名"
db.Execute Sql
End Sub

你好，两个表中都有数据，只是把aa1中的职称数据更新为aa中的职称，运行后，但aa.姓名是空的，而且aa.职称是空的，所以会出现操作符丢失，在查询表达式中，但我不知道怎么解决，请教高手。谢谢！

用DAO
两个表中的表结构如下：
Set td = db.CreateTableDef(mtable)
With td
     .Fields.Append .CreateField("编号", dbInteger, 3)
     .Fields.Append .CreateField("姓名", dbText, 8)
     .Fields.Append .CreateField("职称", dbText, 6)
end with

你好，我换成Sql = "update aa1 set aa1.职称='副教授' where aa1.姓名='张三'"运行后，是对的。