criteri1 = "[poblacio]=' " & Me.txt_poblacio & " ' "
criteri2= "[nom]=' " & Me.txt_nom & " ' "
recordset.FindFirst (criteri1 & criteri2)

SELECT v.dni, cl.nombre, sum(v.cantidadvendida*a.preu) importe total
FROM clientes cl, articulos a, ventas v
WHERE cl.dni=v.dni
GROUP BY v.dni,cl.nombre
ORDER BY cl.dni;

DEFINE codart
SELECT v.codigo, a.descripcion, sum(v.cantidadvendida*a.preu) importe total
FROM  articulos a, ventas v
WHERE  v.codigo=a.codigo 
And v.codigo=&codart
GROUP BY  v.codi, a.descripcion
ORDER BY  v.codi;

            int i, j, posPetit = 0;

            for (i = 0; i < t.Length - 1; i++)
            {
                posPetit = i;
                for (j = i + 1; j < t.Length; j++)
                {
                    if (t[posPetit] > t[j])
                        posPetit = j;

                }
                if (t[posPetit] != t[i])
                {
                    Intercanvi(ref t[i], ref t[posPetit]);
                    
                }

            }