Paso de Parámetros

hola a todos
tengo el siguiente traspaso al procedimiento almacenado

With CmdSQL
.CommandType = adCmdStoredProc
.CommandText = "prc_sel_movimientos"

.Parameters.Append .CreateParameter("RETURN_VALUE",
adInteger,adParamReturnValue, 0)
.Parameters.Append .CreateParameter("empr_cod",
adInteger,adParamInput, 4, inEmpresa)
.Parameters.Append .CreateParameter("sucu_cod",
adVarChar,adParamInput, 8, 1)
.Parameters.Append .CreateParameter("fecha_uno",
adDate,adParamInput, 8, dtDesde)
.Parameters.Append .CreateParameter("fecha_dos",
adDate,adParamInput, 8, dtHasta)
.Parameters.Append .CreateParameter("modelo_uno",
adChar,adParamInput, 12, stModeloUno)
.Parameters.Append .CreateParameter("modelo_dos",
adChar,adParamInput, 12, stModeloDos)
.Parameters.Append .CreateParameter("bode_cod",
adVarChar,adParamInput, 20, stBodegas)

End With
With rsReg
.CursorLocation = adUseClient
.Open CmdSQL, , adOpenDynamic, adLockReadOnly
End With

La variable stBodegas (último traspaso). y puede contener varios
códigode bodegas por ejemplo "00,07"

Este es procedimiento almacenado
CREATE PROCEDURE prc_sel_movimientos

@empr_cod numeric(4,0),
@sucu_cod varchar(8),
@fecha_uno datetime,
@fecha_dos datetime,
@modelo_uno char(12),
@modelo_dos char(12),
@bode_cod varchar(20)

AS

SELECT *
FROM [inve]
WHERE [empr_cod] = @empr_cod and [sucu_cod] = @sucu_cod and
[inve_fec_emision] between @fecha_uno and @fecha_dos and
[art_cod] between @modelo_uno and @modelo_dos and
[bode_cod] in (@bode_cod)



RETURN @@error
GO

EL PROBLEMA QUE TENGO ES QUE NO ME FUNCIONA LA CONSULTA, POR FAVOR ME
PUEDEN AYUDAR