这样写
With e.FormDim txb1 As WinForm.TextBox = .Controls("textbox4")
Tables("main_table1").filter = "Convert([户号], 'System.String') Like '*" & txb1.text & "*'" Or "[姓名] Like '*" & txb1.text & "*'"End With