dim liczbaarkuszy_1 as double
liczbaarkuszy1 = DMax("LiczbaArkuszy", "tblRozklad")
strSQL = "SELECT [Odpad], [LiczbaUzytkow], [ProcentZcalosci] FROM [TblRozklad] WHERE [Odpad]=" & liczbaarkuszy1 & " ORDER BY [Odpad] DESC;" e.g. liczbaarkuszy1 = 20,833333333333333