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