あるいは、
Dim strSQL As String
strSQL = "SELECT * FROM テーブル1 WHERE 地域 IN(SELECT 地域 FROM テーブル1 " _
& "WHERE (ID = 1 And 収入 >= 100) " _
& "Or (ID = 2 And 収入 >= 60) " _
& "Or (ID = 3 And 収入 >= 20) " _
& "GROUP BY 地域 " _
& "HAVING Count(1) = 3" _
& ");"
とか。
通報 ...