SQL - Store Procedure q devuleve valor nulo

Tengo una tabla en SQL7 llamada TRecord con 2 campos: Codigo char(5) como Primary Key este campo es generado automaticamente a partir del valor numerico de otra tabla (se que este campo podria hacerlo identity y entero pero ese no es fin de mi tabla), (observa el store procedure q hice para generar este campo apartir de la tABLA TCORRELATIVOS)
El otro campo se llama RUC char(11) campo UNIQUE, es decir sin duplicados
*******************'***********************
El store procedure para insertar un Registro es el Sgte:
en donde si no hay error me devuelve 0 y si lo hay me devuelve 1 o 2
*******************'***********************
CREATE Procedure SP_New_Record @RUC char(11), @Codigo char(5) OUTPUT AS
Declare @Cont Integer
Begin Transaction
Update TCORRELATIVOS
Set @Cont = CORRE_AUX, CORRE_AUX = CORRE_AUX + 1
if @@Error <> 0
Begin
Rollback Transaction Return 1
End
Commit Transaction
Set @Codigo = Right('00000'+Convert(Char(5),@Cont+1),5)
Begin Transaction
Insert Into TRecord (Codigo,RUC) Values (@Codigo,@RUC)
If @@Error <> 0
Begin
Rollback Transaction Return 2
End
Commit Transaction
Return 0

Continuo....

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