多字段模糊查询如何实现？

我是这样做的:

在窗体上设一个文本框TxtSearchFor,和一个列表框lstSearched,你的"一条记录有产品ID、产品名称、产品型号....等等多个字段"的表称设为"表1"

在文本框TxtSearchFor的Change事件中录入以下代码:

Private Sub TxtSearchFor_Change()
    Dim varTxtSearchFor As String
    Dim varStrSQL As String
    Dim varLikeStr As String
    varTxtSearchFor = "*" & TxtSearchFor.Text & "*"
    varLikeStr = Replace("'" & varTxtSearchFor & "'", " ", "")
    varStrSQL = "select * from 表1 where ((表1.产品ID) like " & varLikeStr & ") OR ((表1.产品名称) like " & varLikeStr & ") OR ((表1.产品型号) like " & varLikeStr & ")"
    LstSearched.RowSource = varStrSQL
    LstSearche.Requery
    Debug.Print "varStrSQL=" & varStrSQL
    Debug.Print "TxtSearchFor.Text=" & TxtSearchFor.Text
End Sub

下面两个Debug是用来调试你的查询语句的.