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

我在菜单中加一个功能区“数据库”、功能组“产品信息”、工具栏“图号”、文本框“图号”、标准按钮“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

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