findword = "A.字段名称 like '%" & keyword & "%'"
换成
findword = "InStr(1,LCase(A.字段名称),LCase('"&keyword&"'),0)<>0"
如:findword = "A.title like '%" & keyword & "%'"