Remover registros se existir e não exibir erro se não existir

[luiscarlos5046 3]

Olá Galera!

 

Estou apanhando em uma coisa simples que já fiz de outras formas, e agora esse código me exibe erro não terminando a execução correta do mesmo.

 

Preciso verificar se existe cadastro nessas 2 tabelas, se existir vou remover... se não tiver nada cadastrado não exibir erro.

Acontece que acho que o erro é exibido por não existir dados na tabela.

 

Onde estou errando?

 

 

set rsA = cn.execute("SELECT * FROM esptec WHERE id_produto="& id &" ")
set rsB = cn.execute("SELECT * FROM prod_detalhes_fotos WHERE id_produto="& id &" ")

if not rsA.eof then
    strsql = " DELETE FROM esptec "
    strsql = strsql & " WHERE id_produto IN ("& id &")"
    cn.execute(strsql)
end if

if not rsB.eof then
    strsql = " DELETE FROM prod_detalhes_fotos "
    strsql = strsql & " WHERE id_produto IN ("& id &")"
    cn.execute(strsql)
end if