Este error se produce cuando la consulta no retorna ningún dato, se procederá a aislar el listado avisando al usuario esta falta de datos
misql="Select ..."
Set rs=cn.Execute(misql)
if not rs.eof then
Código para cuando hay datos
else
aviso de que la consulta no tiene fatos
end if