Stored Procedure

[eurojames]

Alguien me puede decir donde está el fallo:

<%
'Eliminamos las posibles comillas de la entrada para evitar la introducción de sentencias SQL.

usuario = replace(request.form("usuario"),"'& quot;,"")
password = replace(request.form("password"),"' ","")
nombre = replace(request.form("nombre"),"'&q uot;,"")
apellidos = replace(request.form("apellidos")," '","")
poblacion = replace(request.form("poblacion")," '","")
provincia = replace(request.form("provincia")," '","")
email = replace(request.form("email"),"'&qu ot;,"")
comentario = replace(request.form("comentario"),&quot ;'","")

'Conexion SQl server
set conexion = Server.CreateObject("ADODB.Connection")
Set adocmd = Server.CreateObject("ADODB.Command")

conexion.Open "Provider=SQLOLEDB;Data Source=S5K9S5;Initial Catalog=CONTROL;User Id=sa;Password=eurojames;OLE DB Services=-2"

set adocmd.ActiveConnection = conexion
adocmd.CommandType = adCmStoredProc
adocmd.CommandText = "sp_VC_USUARIOS_I"

adocmd.Parameters.Append adocmd.CreateParameter("usuario", adVarChar, adParamInput, 25,usuario)
adocmd.Parameters.Append adocmd.CreateParameter("password", adVarChar, adParamInput, 25,password)
adocmd.Parameters.Append adocmd.CreateParameter("nombre", adVarChar, adParamInput, 30,nombre)
adocmd.Parameters.Append adocmd.CreateParameter("apellidos", adVarChar, adParamInput, 50,apellidos)
adocmd.Parameters.Append adocmd.CreateParameter("poblacion", adVarChar, adParamInput, 25,poblacion)
adocmd.Parameters.Append adocmd.CreateParameter("provincia", adVarChar, adParamInput, 25,provincia)
adocmd.Parameters.Append adocmd.CreateParameter("email", adVarChar, adParamInput, 50,email)
adocmd.Parameters.Append adocmd.CreateParameter("comentario", adVarChar, adParamInput, 200,comentario)
adocmd.Execute

set adocmd = nothing
conexion.Close
set conexion = nothing
%>

El error que me da es este :
Tipo de error:
ADODB.Command (0x800A0BB9)
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.