主题：筛选出错

那位帮忙解决一下出错的问题。编号例为整数例。应该怎么改，那位高手帮忙。实在没办法了。

Dim txt As Object = RibbonTabs("我的工作")("日期")("工具栏2")("组合框1").text
If CurrentTable Is Tables("支出明细") Then
Dim tb As Table = Tables("支出明细")
If txt = "" Then
    tb.filter = ""
Else
    txt = "'*" & txt & "*'"
    tb.filter = "编号 Like " & txt & " Or 支出项目 Like " & txt & " Or 收款人 Like " & txt  & " Or 支出账户 Like " & txt
   End If
End If