SQL - ERROR PROCEDIMIENTO ALMACENADO

Hola tengo el sgte procedimiento almacenado en SQL SERVER 2000

CREATE PROCEDURE SpConsultAmodisco1
@numero_cuenta char
AS
BEGIN
SELECT *
FROM amodisco
WHERE cuenta LIKE (@numero_cuenta)
END
GO

y esta es la llamada del procedimiento desde VB6.0

Dim reg_consulta As ADODB.Recordset
Dim cmasql As ADODB.Command
Set cmasql = New ADODB.Command
With cmasql
.ActiveConnection = conexion
.ActiveConnection.CursorLocation = adUseClient
.CommandType = adCmdStoredProc
.CommandText = " SpConsultAmodisco1 "
.Parameters.Append .CreateParameter("@numero_cuenta", adChar, adParamInput, 1)
.Parameters("@numero_cuenta").Value = numero_cuenta
End With
Set reg_consulta = cmasql.Execute

EL ERROR ES 3421
LA APLICACION UTILIZA UN VALOR DE TIPO NO VALIDO
PARA LA OPERACION ACTUAL

ALGUIEN PODRIA INDICARME CUAL ES YA Q HE INTENTANDO
CAMBIANDO LA DEFINICION DE LA VARIABLE PERO IGUAL.
GRACIAS

Bueno yo intentaria 2 cosas:
1.- Al parametro "@numero_cuenta" asignele la propiedad cstr() para asegurar que sea texto

2.- Intente correr su sp desde un query analyser y observe si funciona correctamente pasandole parametros

Saludos