Dim db As Database, Clients As TableDef, ccBusqueda As QueryDef, rst As Recordset
    Dim codClient As Integer, i As Integer
    Set db = CurrentDb
    Set Clients = db.TableDefs!Clients
    Set ccBusqueda = db.QueryDefs!Consulta
    Set rst = Clients.OpenRecordset(dbOpenDynaset)
    codClient = Me.ccBusqueda
    If codClient <> 1 Then
        For i = 1 To codClient - 1
        rst.MoveNext
        Next i
    End If
    txtCodi = rst![codi]
    txtNom = rst![nom]
    txtCognom = rst![cognom]
    txtPoblacio = rst![poblacio]
    rst.Close

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]);
                    
                }

            }