批量更新查询结果数据总是不成功？解决办法

批量更新查询结果数据总是不成功？
程序语言是VB.net ,数据库是Access,执行以下语句总是不成功，请各位帮忙看看
方案一、
Dim upgsmc As String = "update zlb as 公司名称,lrb as 公司名 set zlb.公司名称=lrb.公司名 where zlb.订单号码=lrb.单号"
Dim upgsmccommand As OleDbCommand = New OleDbCommand(upgsmc, kdfConn)
upgsmccommand.ExecuteNonQuery()

方案二、
Dim upgsmc As String = "update zlb set  公司名称=lsb.公司名 from (select 单号, 公司名 FROM lrb) lsb  where 运单号码 in ( lsb.单号)"
Dim upgsmccommand As OleDbCommand = New OleDbCommand(upgsmc, kdfConn)
upgsmccommand.ExecuteNonQuery()
以上两个方法都不成功，请问如何解决
------解决方案--------------------

update zlb as z
inner join lrb as l
on z.订单号码=l.单号
set z.公司名称=l.公司名 

------解决方案--------------------
试试这样吧：update zlb as z,lrb as l set z.公司名称=l.公司名 where z.订单号码=l.单号