Deletar um registro

Seguinte, tenho um select e logo após um delete dos dados que o select pega, é +ou- assim:

 

Set dados = MyConn.Execute("Select * from cadastro where idcad = '5'")	While Not dados.eofMyConn.Execute("Delete * From dados Where idcad = '5'")dados.MoveNextWend

No caso aqui são 5 registros encontrados e abaixo ele vai excluir os 5.

Até a exclusão do 4º registro ele vai numa boa, mais qdo ele exclui o 5º registro ele dá o erro na linha dados.MoveNext, pq não existe mais registros e ele vai tentar dar o loop.

Como posso fazer pra não dar esse erro?

Ou qdo apagar o ultimo registro ele nao chamar o loop...

Valews