在一大篇的文章中，要查找字符串是不可能通过肉眼来整篇查找的，我们都是在如word，文本中通过查找功能在查找的，

下面的示例是Access窗体中在文本框中输入文字，通过筛选查找出字符串，然后标黑。 下面的代码是查找功能

 Dim intWhere As Integer

    With objTextBox

        '指定一字符串在另一字符串中最先出现的位置

        intWhere = InStr(.Value, strSearch)

        If intWhere Then

           '查找

           .SetFocus

           .SelStart = intWhere - 1

           .SelLength = Len(strSearch)

        Else

           '如未有指定字符，提示.

            MsgBox "未找到你所查找的字符串！", vbOKOnly + vbInformation, "系统提示："

        End If