1、你的filter是什么东西?msgbox(filter)看一下
2、试试改成
DataTables("B_Client").LoadFilter = iif(Filter>"", "(" & filter & ") and ", "") & " (业务负责人 In ('" & dr("授权名单").Replace(",", "','") & "') or (登记人 = '"& User.Name &"'))"