1.动态生成SELECT语句:
SQL="SELECT * FROM 表名 WHERE True"
if 条件 then
SQL=SQL & " AND " & "列名='" & 条件 &"'"
End if
if 条件 then
SQL=SQL & " AND " & "列名='" & 条件 &"'"
End if
....
最后执行此查询
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "DSN= ; UID= ; PSW=""
Set Rs=Conn.Execute(SQL)