ASP - error '800a0cb3'

me sale este error cuando intento insertar en la base de datos:

ADODB.Recordset error '800a0cb3'

El Recordset actual no admite actualizaciones. Puede ser una limitación del proveedor o del tipo de bloqueo seleccionado.

He probado de todo pero nada, este es el código que me falla. En concreto el error me lo da en Rs.Addnew, alguien me puede ayudar??

Case "insercion"
'strSQL ="INSERT INTO PAGINA_X_PLANTILLA (PLANTILLA, DESCRIPCION) VALUES ('PLANTILLA','DESCRIPCION')"

strSQL = "SELECT * FROM PAGINA_X_PLANTILLA WHERE I_PAGINA_PLANTILLA=0"

CrearRS dbi,RS,strSQL,0
'conn.Open connstr
'connDirectory.execute(strSQL)
'conn.close
'set conn=nothing
IF Rs.Eof Then 'la primera vez que lo metamos no existirá el registro
Rs.Addnew
End If

RS("PLANTILLA")=PLANTILLA
RS("DESCRIPCION")=DESCRIPCION
RS.Update
CerrarObj(RS)
CerrarObj(dbi)

Response.redirect(InsOKURL &"?ID=" & ID & "&modo=")

Case Else