求改错。。。。。。。。。。。。。。。。。。。。。。。。。。。

curdb.Execute "update device set 现有库存=" & deviceCnt & ",总数=" &_ curRS.Fields("_总
数").Value + CInt(入库数量.Value) & " where 设备号='" & 设备号.Value & "'"
curdb.Execute "insert into Howdo(操作员，操作内容，操作时间) values ('管理员 ','设备入_库',"
& CDate(入库时间.Value) & ")"