Problemas em apagar registros com ADO e ACESS

Bom dia Programadores e Programadores.

Estou com um pequeno problema.

Tenho uma tabela ACESS, USO ADO, Delphi 7.

Colequei um ADoConnectio, adoquery, e um datasouce e um Dbgrid ligado ao datasource e coloquei este codigo aqui, pra apagar todos os codigos iguais eixando so um de cada, mais esta dando o seguinte erro.

ERRO O PROVEDOR ATUAL NÃO OFERECE SUPORTE PARA RETORNAR VARIOS CONJUNTOS DE REGISTROS DE UMA UNICA EXECUÇÃO.

Este e o Codigo

delete from Ruas where CODLOG in
(select CODLOG from Ruas
group by CODLOG
having Count(CODLOG)>1)
and not CODLOG in
(select Min(CODLOG) from Ruas
group by CODLOG
having Count(CODLOG)>1);