Tables("退休信息").Filter = "制文时间 like " & "'%" & cxz.Text & "*'"
改成
Tables("退休信息").Filter = "制文时间 like '%" & cxz.Text & "%'"