Se puede hacer un else en un While not query1.eof Do?

[roman]

A ver, un while no lleva un else. Punto.

Ahora, como ya te han observado, más allá del error propiamente sintáctico, tienes un error de concepto. No necesitas recorrer los resultados de una consulta para determinar que un código ya se ha introducido. Únicamente necesitarías saber si la consulta regresa por lo menos un registro, para lo cual cuentas con la propiedad IsEmpty del Query.

// Saludos