SQL Server - PROBLEMA COM SP Y VB

HOLA A TODOS:

Tengo el siguiente codigo en vb que llama a un SP y cuando lo ejecuto no me corre, igualmente no me da ningun error cuando coloco un control de errores, pero cuando Lo ejecuto desde el analizador de consultas me corre normalmente...

EL CODIGO DE VB,

Private Sub ccmdactualizar_Click()
On Error GoTo ccmdactualizar_Click_Error

conectadb
MsgBox bandera

Dim CMD As ADODB.Command, rs As ADODB.Recordset
Dim lsMensaje As String
Set CMD = New ADODB.Command
Set rs = New ADODB.Recordset

Select Case bandera
Case "Agregar"

With CMD
.ActiveConnection = conn
.CommandText = "INSERT_CONT"
.CommandType = adCmdStoredProc
.Parameters.Append .CreateParameter("@COD_DEPTO", adChar, adParamInput, 2, combo_depto.BoundText)
.Parameters.Append .CreateParameter("@COD_MPIO", adChar, adParamInput, 3, combo_mpio.BoundText)
.Parameters.Append .CreateParameter("@COD_ARS", adChar, adParamInput, 6, combo_ars.BoundText)
.Parameters.Append .CreateParameter("@CNUM_CONT", adChar, adParamInput, 6, TxtBnumcont.Text)
.Parameters.Append .CreateParameter("@ACTO_ADM", adChar, adParamInput, 1, combo_tacto.BoundText)
.Parameters.Append .CreateParameter("@NUM_ADM", adChar, adParamInput, 6, TxtBnumacto.Text)
.Parameters.Append .CreateParameter("@FEC_CONT", adVarChar, adParamInput, 10, TxtBfecha.Text)
.Parameters.Append .CreateParameter("@FECHAF ", adVarChar, adParamInput, 10, TxtBfecfinal.Text)
.Parameters.Append .CreateParameter("@VALOR_CONT", adInteger, adParamInput, 12, TBvalorcont.Text)
.Parameters.Append .CreateParameter("@NUM_AFI", adInteger, adParamInput, 10, TxtBnumafiliados.Text)
.Parameters.Append .CreateParameter("@TIPO_CONT", adVarChar, adParamInput, 2, combo_tcont.BoundText)
'.Parameters.Append .CreateParameter("c", adInteger, adParamReturnValue)
Set rs = .Execute()
End With

Case "Editar"
MsgBox "esta editando"
End Select

bandera = ccmdactualizar.Caption

On Error GoTo 0
Exit Sub

ccmdactualizar_Click_Error:

MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure ccmdactualizar_Click of Formulario frm_contratos"

End Sub

Y AQUI ESTA EL SP.


--
-- Definition for stored procedure [INSERTA_CONTRATOS] :
--

CREATE PROCEDURE INSERT_CONT
(@COD_DEPTO VARCHAR(2),
@COD_MPIO VARCHAR(3),
@COD_ARS VARCHAR(6),
@CNUM_CONT VARCHAR(6),
@ACTO_ADM VARCHAR(1),
@NUM_ADM VARCHAR(6),
@FEC_CONT VARCHAR(10),
@FECHAF VARCHAR(10),
@VALOR_CONT VARCHAR,
@NUM_AFI VARCHAR(12),
@TIPO_CONT VARCHAR(2))
AS
DECLARE @NUMERO INT
BEGIN TRAN

UPDATE NUMERADORES SET @NUMERO = ULTIMO_VALOR = ULTIMO_VALOR + 1 WHERE TABLA='CONTRATO'

IF @@ERROR <> 0
BEGIN
ROLLBACK TRAN
RETURN
END

INSERT INTO CONTRATO
VALUES (@NUMERO,@COD_DEPTO, @COD_MPIO,
@COD_ARS,@CNUM_CONT,
@ACTO_ADM,
@NUM_ADM,
convert(CHAR(10),getdate(),112),
convert(CHAR(10),@FEC_CONT,112),
convert(CHAR(10),@FECHAF,112),
dbo.nmeses(convert(CHAR(10),@FEC_CONT,112),convert(CHAR(10),@FECHAF,112)),
cast(@VALOR_CONT as INT),
@NUM_AFI,
@TIPO_CONT);

IF @@ERROR <> 0
BEGIN
ROLLBACK TRAN
RETURN
END
COMMIT TRAN

espero me puedan ver cual puede ser el error.