Eliminar duplicados con LECT DISTINCT

[manu]

Hola a todos.
Tengo el siguiente problema.
Tengo una tabla access "paso" , la cual tiene un campo, 'Code' que tiene registros duplicados. Tiene tres campos mas.
Para eliminar los registrso duplicados segun el campo 'Code' creo otra tabla con la expresion:

Código SQL [-]
 ADOCommand1.CommandText := 'INSET INTO paso1  SELECT DISTINCT Code  FROM paso;
ADOCommand1.Execute;

Al ejecutar el comando, se crea una tabla sin los repetidos.
Pero no se copian los valores de los otors campos de los registros.

Si pongo la expresion

Código SQL [-]
 ADOCommand1.CommandText := 'INSET INTO paso1  SELECT DISTINCT Code,campo2,campo3,campo4  FROM paso;
ADOCommand1.Execute;

Evalua los 4 campos, con lo cual no se eliminan los repetidos que aparacen en el campo 'code'

Podriais hecharme una mano?
Gracias.
Un Cordial saludo