SELECT Sum([kol]) AS SumKol, Sum([uet]) AS SumUet
FROM Users
WHERE date_o=# 12 / 10 / 2005 #
UNION ALL
SELECT Sum([kol]) AS SumKol, Sum([uet]) AS SumUet
FROM Users
WHERE date_o Between # 1 / 1 / 2006 # AND # 1 / 31 / 2006 #

    Dim rst As New ADODB.recordset
    Dim fld As ADODB.Field
    Dim dtmDate1 As Date
    Dim dtmDate2 As Date
    Dim dtmDate3 As Date
    
    dtmDate1 = # 12 / 10 / 2005 #
    dtmDate2 = # 1 / 1 / 2006 #
    dtmDate3 = # 1 / 31 / 2006 #
    
    rst.Open "SELECT Sum([kol]) AS SumKol, Sum([uet]) AS SumUet " _
      & "FROM Users " _
      & "WHERE date_o = #" & Format(dtmDate1, "mm\/dd\/yy") & "# " _
      & "UNION ALL " _
      & "SELECT Sum([kol]) AS SumKol, Sum([uet]) AS SumUet " _
      & "FROM Users " _
      & "WHERE date_o Between #" & Format(dtmDate2, "mm\/dd\/yy") & "# AND #" _
      & Format(dtmDate3, "mm\/dd\/yy") & "#", CurrentProject.Connection
      
    Do Until rst.EOF
        For Each fld In rst.Fields
            Debug.Print fld.Value;
        Next fld
        Debug.Print
        rst.MoveNext
    Loop