Error 20572 con cr y sp

[TNT_Alfredo]

Hola a todos despues de estar con esto casi 2 dias me veo en la necesidad de perdirles ayuda a uds.. hago un reporte en crystal report usando ademas un stored procedure pero cuando le paso parametros me da error, si lo hago asignando el valor directamente en el sp y no le paso parametros realiza correctamente el reporte pero con los parametros me da error este es el codigo

Private Sub cmdReporte_Click()
Dim CrAppl As New CRPEAuto.Application
Dim CrRep As CRPEAuto.Report
Dim CrDB As CRPEAuto.Database
Dim CrTables As CRPEAuto.DatabaseTables
Dim CrTable As CRPEAuto.DatabaseTable
Dim AdoRs As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim cmd As ADODB.Command

Set cnn = New ADODB.Connection
Set cmd = New ADODB.Command
cnn.ConnectionString = "Provider=SQLOLEDB.1;Password=pass;Persist Security Info=True;User ID=id;Initial Catalog=DB;Data Source=Server"
cnn.Open
Set cmd.ActiveConnection = cnn
cmd.CommandType = adCmdStoredProc
cmd.CommandText = "PRUEBA"
cmd.Parameters.Append cmd.CreateParameter("STATE", adVarChar, , 2)
cmd.Parameters.Item("STATE").Value = "CA"
Set AdoRs = cmd.Execute
Set CrAppl = New Application
Set CrRep = CrAppl.OpenReport("E:\Alfredo\reportes\rptPrueba.r pt")
Set CrDB = CrRep.Database
Set CrTables = CrDB.Tables
Set CrTable = CrTables.Item(1)
CrTable.SetPrivateData 3, AdoRs
CrRep.Preview
End Sub

Al parecer estoy cometiendo error en estas 2 lineas
cmd.Parameters.Append cmd.CreateParameter("STATE", adVarChar, , 2)
cmd.Parameters.Item("STATE").Value = "CA"
cuando pongo como comentario estas 2 lineas y asigno en el stored procedure el valor normal funca


Please no se que estoy haciendo mal, si alguien tiene algun comentario o sugererncia seran bien recibidas

por sia aca esta el stored procedure

SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
ALTER PROCEDURE PRUEBA
@STATE CHAR(2)
AS
SELECT au_lname, au_fname, phone FROM AUTHORS
WHERE STATE=@STATE
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO