>>261
よく分からんけどfor文で条件式組み立てるだけじゃないの？
Dim C As Scripting.Dictionary
C.Add "フィールド1", "A1"
C.Add "フィールド2", "B1"
C.Add "フィールド3", "C1"
...
Dim W As String
W = "1 = 1"
Dim F As Variant
For Each F In C.Keys
W = W & " AND [" & F & "] = '" & C(F) "'"
Next
Set rs = CurrentDb.OpenRecordset("SELECT * FROM [Tテーブル] WHERE " & W, dbOpenDynaset)