ASP - Bloqueo: ADODB.Recordset error '800a0bb9'

tengo el siguiente código de ejemplo para insertar un dato:

<%
dim oConn,SQL,registros
set oConn = Server.CreateObject("ADODB.Connection")
oConn.open=("DSN=pepe.es.dsnpepe")
set registros=Server.CreateObject("ADODB.Recordset")
registros.CursorType = adOpenKeyset
registros.LockType = adLockOptimistic <<<<<<--------

SQL="Select * from promo_club;"
registros.Open SQL, oConn
registros.AddNew
registros("visitas")="1"
registros.Update
registros.Close
%>

Bueno es un ejemplo para insertar un uno en el primer registro que me devuelve porque el código completo que suma una visita al usuario específico que entra en mi página me daba el mismo error y ahora he probado con esto, y me sigue saliendo lo mismo:

ADODB.Recordset error '800a0bb9'
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/inserta.asp, line 18

El error salta en la linea que he marcado arriba, la del tipo de bloqueo. La verdad es que no se por qué puede ser, por favor es algo urgente!! alguien sabe lo que pasa'???

Muchas gracias

prueba tu contador con este codigo a ver:

<%
'Aeonsector ASP-DB Visitor Counter Open Source Code feel free to change and redistribute
'http://www.aeonsector.com



Dim openConn, conString, stringDB, rstt, addCount
Set openConn = Server.CreateObject("ADODB.Connection")


'-----------------------------------------------------------------------------------------------------------------------------
'This is the only part that needs changing (Change the DSN_NAME_HERE to your DSN name"

conString = "DSN=DSN_NAME_HERE"

'-----------------------------------------------------------------------------------------------------------------------------

openConn.Open conString
stringDB="SELECT * FROM Visitors"
set rstt=server.CreateObject("ADODB.Recordset")
rstt.open stringDB,openConn,3,3
addCount = rstt.fields("dbCNTR")
rstt.fields("dbCNTR")= addCount + 1
rstt.Update

%>

<%=addCount%>


<%

rstt.Close
Set rstt= Nothing

%>

crea la base de datos y listo....