用In吗,比如:
Dim s As String = "演出部\策划部"s = "('" & s.Replace("\","','") & "')"DataTables("职员工资表").Fill("Select * From {职员工资信息} where 部门 In " & s, "fox", False)