不应该有错,试试这样
Tables("表A").Filter = "生日 = #" & Today() & "# and 电话 in (" & DataTables("表A").GetComboListString("电话").Replace("|",",") & ")"