rs.Open ActiveConnection:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & ";Extended Properties=""Excel 12.0 Xml""", _
        Source:="SELECT [Material] , sum([Zahl1]) As Summe1, sum([Zahl2]) As Summe2, sum([Zahl3]) As Summe3 " & _
                "FROM (SELECT * FROM `Tabelle1$` WHERE [Zahl3] >= 1000) " & _
                "Group By [Material]"