我想在菜单设计中利用文本框和按钮实现搜索的功能，具体已经建立了工具栏，编写以下的代码：

Dim Val As String = RibbonTabs("电梯基础信息表").Groups("生成信息表").Items("搜索").Items("文本框1").Text
Dim dr As DataRow
With CurrentTable
\'dr =.Find("出厂编号 Like " & val  & " Or 使用单位 Like " & val & " Or 额定载重量 Like "  )
If dr IsNot Nothing Then
    Dim wz As Integer =.FindRow(dr)
    If wz >= 0 Then
        .Position = wz
    End If
End If
End With

但是代码无法完成当输入“出厂编号”或“使用单位”等差找并进行筛选，只是光标去到了那个位置，我想实现在对话框中，如下代码出现的效果：

DataTables("电梯信息表").Load
Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("电梯信息表")
If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'*" & txt & "*\'"
    tbl.Filter = "出厂编号 Like " & txt  & " Or 使用单位 Like " & txt & " Or 额定载重量 Like " & txt & " Or 设备所在镇 Like " & txt       
End If
MessageBox.Show("本次查询表中共有" & tbl.Rows.count & "条记录")