主题：FindRow方法,可不可以查找和任意列内容一样的行啊?

下面的代码是帮助文件里面的,我现在想达到的效果是在查找里面输入的内容和任意列的内容一样就定位到该行(现在只对当前列有效),可不可以做到啊?

实在是想不出来改怎么改代码,求高手帮我看看吧...

Dim Val As String = RibbonTabs("功能区1").Groups("功能组1").Items("工具栏1").Items("StringToFind").Text
Dim Index As Integer
With CurrentTable
    Index = .FindRow(.Cols(.ColSel).Name & " = '" & Val & "'", .Position + 1,True)
    If Index >= 0 Then
    .Position = Index
    End If
End With