access模糊查询表所有字段

StrSearch = "jack" '查询字符串

Dim conn As New ADODB.Connection
connStr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=C:/a.mdb"
conn.Open connStr

Dim rs As New ADODB.Recordset
sql = "select top 1 * from [user]"
rs.Open sql, conn, adOpenForwardOnly

FiledStr = ""
For Each Field In rs.Fields '生成每个字段的sql
  If Field.Type = 202 Then '文本型字段
    If FiledStr = "" Then
      FiledStr = FiledStr + Field.Name + " like '%" + StrSearch + "%'"
    Else
      FiledStr = FiledStr + " or " + Field.Name + " like '*" + StrSearch + "*'"
    End If
  End If
Next

rs.Close

sql = "select * from [user] where " + FiledStr '查询
rs.Open sql, conn, adOpenForwardOnly '这就是结果了。

Do While Not rs.EOF
  MsgBox (rs(0))
  rs.MoveNext
Loop

rs.Close
conn.Close