这样改
flt + = " And " & c.Name & " Like '%" & e.Form.Controls(ctl.Name).Text.Replace("[", "@").Replace("]", "#").Replace("@", "[[]").Replace("#", "[]]").Replace("*", "[*]") & "%'"