TextChanged事件
Tables("表A").Filter = "Convert(" & e.form.controls("ComboBox1").Text & ", 'System.String') like '%" & e.sender.Text & "%'"