主题：建立一个查询功能，保存后，不能查询，请帮忙看一下

我测试有效的。
另外注意，你这个设计只能对字符列有效，对于数值列无效。
这样改一下，对于字符和数值列，都会有效的：
 
Dim Val As String = RibbonTabs("日常工作")("编辑1")("工具栏")("StringToFind").Text
Dim Index As Integer
With CurrentTable
    If .Cols(.ColSel).DataCol.IsString Then
        Index = .FindRow(.Cols(.ColSel).Name & " = '" & Val & "'", .Position + 1,True)
    ElseIf .Cols(.ColSel).DataCol.IsNumeric Then
        Index = .FindRow(.Cols(.ColSel).Name & " = " & Val  , .Position + 1,True)
    End If
    If Index >= 0 Then
        .Position = Index
    End If
End With

我测试可以的，单击之后，光标就会自动定位到找到的哪一行啊

之前为什么不可以？