No entiendo muy bien tu código...
RS("opcion1") = RS("opcion1") ???
Seguro que es todo el código de la página??
Cita: ADODB.Recordset error '800a0cc1'
No se encontró el elemento en la colección que corresponde con el nombre o el ordinal pedido.
En fin, el error que te está dando es pq por lo visto intentas recuperar el campo "opcion1" y ese campo no existe en la consulta que estas realizando. Un ejemplo más claro para que veas el problema.
Tabla1
Campo1
Campo2
Select campo3 from tabla 1
me dará el mismo error pq campo3 no existe en esa tabla.