小白求助，有点像系统自带的查询（ctyl+F）一样的查询效果 怎么弄？

无意中找到了解决方法。http://www.accessoft.com/article-show.asp?id=5386

借鉴了下就OK了

Private Sub 单号查询_Click()                     '数据模糊查询

Dim strWhere As String                            '声明条件字符串变量
strWhere = Nz(Text4)                              'Nz作用是 为空值时返回零长度字符串，避免出错
                                                             '只有当条件输入框不为空时，才生成查询条件WHERE子句，将多个字段组合为一个字段，然后使用Like运算符进行模糊匹配
If strWhere <> "" Then strWhere = " Where 单号 & 姓名 & 备注 like '*" & strWhere & "*'"
Me.RecordSource = "select * from 表1 " & strWhere       '重新设置本窗体记录源，以显示查询结果
 Me.Text4.SetFocus
End Sub