主题：赋值代码咨询

有表A和表B两个表，表A有登录者的姓名列和直接上司列。表B有部门主管姓名列
现在要根据登录者姓名从表A获取直接上司名字赋值到表B的部门主管姓名的当前行中。
下面是代码，为什么不能赋值，是什么错误？

Dim Str1 As String = DataTables("A").GetComboListString("直接上司", "姓名 = '" & "user.name" & "'")
Tables("B").current("部门主管姓名") = Str1