Visual Basic - Como Borrar Un Registro....

De antemano, muchas gracias a quien me pueda ayudar con el siguiente caso:
Tengo la siguiente instrucion :
SQL= "Select * from empleados,pagos where empleados.cod=pagos.codigo"
adoempleados.recordsource= SQL
adoempleados.refresh
Do while not (adoempleados.recordset.eof)
adoempleados.recordset.delete
loop
el problema esta en que me borra el registro en ambas tablas (empleados y pagos). Como hacer para borrar el registro solamente en pagos?

Muchas gracias.

Atte

Zuneo

utiliiza la siguiente consulta
sql = "select * from pagos where codigo in (select cod from empleados)"

Personalmente lo haria ejecutando una consulta "Delete pagos where codigo = " & adoempleados!cod directamente desde la conección, asi sabes exactamente que es lo que estás borrando y tambien si queres lo haces dentro de una transacción para evitar problemas.
Saludos.
Jim