标题：菜单编辑框筛选问题

我在菜单中加一个功能区“数据库”、功能组“产品信息”、工具栏“图号”、文本框“图号”、标准按钮“FinxNext”。在按钮“FinxNext”的Click事件中加入如下代码：

Dim Val As String = RibbonTabs("数据库")("产品信息")("图号").Value
Dim Index As Integer
With CurrentTable
    Index = .FindRow(.Cols(.ColSel).Name & " Like '" & Val & "'", .Position + 1,True)
    If Index >= 0 Then
    .Position = Index
    End If
End With

不知错在哪里，怎么不能筛选。

文本框的值为Text，如：RibbonTabs("数据库")("产品信息")("图号").Text

既是Like应该要加上*符号吧，如：Index = .FindRow(.Cols(.ColSel).Name & " Like '*" & Val & "*'", .Position + 1,True)

还是不对：

Dim Val As String = RibbonTabs("数据库")("产品信息")("图号").Text
Dim Index As Integer
With CurrentTable
    Index = .FindRow(.Cols(.ColSel).Name & " Like '*" & Val & "'*", .Position + 1,True)
    If Index >= 0 Then
    .Position = Index
    End If
End With

问题出在这一句：

Dim Val As String = RibbonTabs("数据库")("产品信息")("图号").Text

引用位置有误，根据错误提示，图号是个工具栏