Hi

You need a procedure which will rewrite the CommandText propertie for querie
object. Here is an example
Public Sub UuendaP?ringud()
   kuu = ActiveSheet.Range("F1").Value
   aasta = ActiveSheet.Range("F2").Value
   ...
   Set qtQtrResults = Worksheets("Tasud").QueryTables(1)
   Sheets("Tasud").Activate
   ActiveSheet.Range("A2").Select
   With qtQtrResults
       .CommandType = xlCmdSql
       .CommandText = _
           "SELECT a.tabn, SUM(a.summa) AS arvest, "&_
           "SUM(IIF(a.sotsmaks,1,0)*a.summa) AS sotsalus, "&_
           "a.allyksus FROM tasud a "&_
           "WHERE a.tabn<>'' AND a.summa>0 AND a.tl<'060' AND "&_
           "Year(a.sisestus)=" & aasta & " AND "&_
           "Month(a.sisestus)=" & kuu & " "&_
           "GROUP BY a.allyksus, a.tabn ORDER BY a.tabn"
       .Refresh
   End With
....
End Sub

--
Arvi Laanemets
(Don't use my reply address - it's spam-trap)

You can use the IN keyword i.e.

 Select * from SalesData
 Where SalesData.productCode IN(1,2)

Performace will depending on which DBMS you are using, so do some
testing if you intend to use

Again depending on DBMS product, it is preferable to create a stored
procedure on the server side and get the client (Excel) to pass the
values for the IN clause as parameters (might get away with passing as
a single string paramter?)

--