试试
电话如果是数值型
电话 in (" & DataTables("表A").GetComboListString("电话").Replace("|",",") & ")"
电话如果是文本型,你还得在每个号码中加上单引号电话 in ('" & DataTables("表A").GetComboListString("电话").Replace("|","','") & "')"