SQL - Continuo: Store Procedure q devuleve valor nulo

Continuo....
*******************'***********************
Este es el codigo de vb6 q llama al Sp:
*******************'***********************
Dim cmd As ADODB.Command Dim prm As ADODB.Parameter
Dim CadenaConexion As String
CadenaConexion = "Provider=SQLOLEDB;User ID=sa;Initial Catalog=Warehouse;Data Source=(local)"
Set cmd = New ADODB.Command
cmd.ActiveConnection = CadenaConexion
cmd.CommandType = adCmdStoredProc cmd.CommandText = "sp_New_Record"
Set prm = cmd.CreateParameter("Ret", adInteger, adParamReturnValue)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("RUC", adChar, adParamInput, 11)
cmd.Parameters.Append prm
Set prm = cmd.CreateParameter("Cod", adChar, adParamOutput, 5)
cmd.Parameters.Append prm
cmd.Parameters("RUC").Value = Text1.Text
On Error Resume Next
cmd.Execute
Select Case cmd.Parameters("Ret").Value
Case 0
Label1.Caption = cmd.Parameters("Cod").Value
MsgBox "Registro Grabado"
Case 1,2
MsgBox "Error en la Base de Batos "

End Select
End Sub
*******************'***********************
El problema q tengo es q cuando ingreso un Ruc repetido el programa de Vb retorna en cmd.Parameters("Ret").Value (el valor de Retorno del sp), el valor nulo y en el Case entra al 0 como si el registro fuese grabado y no fue asi, debiendo este devolver el valor 2 por ser duplicado el RUC. porq pasa eso?...en q me equivoque?..me faltara algo en el sp? o escribi algo demas?...EL SP LO PROBE Por analizador de Consultas del SQLServer7 y dev

Pues su planteamiento me parece el adecuado...

Yo recomendaria Debbugear su Aplicacion VB y checar que tanto se tarda en hacer la coneccion a su BD....

Y como segundo paso ejecutaria en una sesion de Query analyser el Store Procedure para verificar que me traiga los resultados esperados.

Saludos y eso sería lo que yo haria

Con respecto a la demora en conexion a la BD el resultado es inmediato solo q en lugar de devolverme el resultado esperado me devuelve NULL en el caso de ingresar un Duplicado . probe en el Query Analizer y todo esta ok , pero en el VB me devulvwe NULL..es un error muy extraño!..para mi falta algo !! pero no lo veo, por favor dale una ojeada, a lo mejor encuentras la falla...por favor dame la mano.porq estoy casi 1 mes buscando la solucion pero nada...

Mira lo mandare imprimir le dare una checada en mi casa mas despacio y mañana te comento si encontre algo raro o faltante....

Muchas Gracias!! te lo agradeceria!!!!....porq al parecer todo esta ok.pero no funciona y no le veo Porque valor del Return del Sp del SQL7 al VB6 se pierde y devuelve NULL... ...Gracias!!!....