Visual Basic - Sentencia SQL "Select ....FROM...

Tengo la siguiente tabla:

TABLA : COMPRAS

COD VENDEDOR AREA FECHA
A ALFONSO INTERNO 01/10/08
B BETO EXTERNO 02/10/08
C CARLOS EXTERNO 03/10/08
A ALFONSO EXTERNO 02/10/08
B BETO INTERNO 04/10/08

La consulta es mostrar las últimas fechas de cada vendedor es decir asi:

COD VENDEDOR AREA FECHA
C CARLOS EXTERNO 03/10/08
A ALFONSO EXTERNO 02/10/08
B BETO INTERNO 04/10/08

Por favor ayudenme, solo logro mostrar los registros con la ultima fecha

sql = "SELECT * FROM compras WHERE fecha= (select max(fecha) from compras) "

COD VENDEDOR AREA FECHA
B BETO INTERNO 04/10/08

y no tengo la ultima fecha de los demas vendedores. Programo en Visual Basic 6.0 con acces XP. Dios los bendiga

Jennifer

sql = "SELECT cod, vendedor, MAX(fecha) AS Fecha FROM compras GROUP BY cod, vendedor"

ing.ramirez

Muchas Gracias Ingeniero, pero ahí no puedo visualizar la última area donde se encontraba el vendedor y si lo agrego:

sql = "SELECT cod, vendedor, area,MAX(fecha) AS Fecha FROM compras GROUP BY cod, vendedor,area"

no sale el reporte que solicito mas por el contrario me sale toda la lista. Lo que me refiero es la ultima area donde a trabajado el vendedor y para esto necesito la mayor fecha.

Ayudame por favor ,,

Jennifer

Si quieres mostrar todos los campos, le tienes que aplicar un alias a la consulta

"SELECT * FROM compras AS T1 WHERE fecha IN (SELECT MAX(fecha) FROM compras WHERE T1.cod = compras.cod)"

Ing. Ramirez