Como seria esto co subconsulta?

[ady_tuner]

c) Código de la tienda que haya emitido el recibo de mayor importe el día 30/12/2001.

Select contiene.Cod_t,max(precio_uni)
From recibo,tienda,contiene,compra
Where fecha=30/12/2001 and tienda.cod_t=recibo.cod_t and
tienda.cod_t=compra.cod_t and
contiene.num_caja= tienda.cod_t ;