Visual Basic - urgentisimo...ayuda

en el evento guardar llamo a un StoreProcedure, el problema es que solo graba la primera vez
que le envio, la segunda vez me sale un error "la funcion o procedumiento 'EXPEDIENTE_UPDATE'"
tiene demasiados argumentos.
Por favor si alguien tiene la solucion, enviamelo gracias.
Mi codigo es el siguiente:
With cm
.ActiveConnection = "SERVER=JORGE;PROVIDER=SQLOLEDB;UID=sa;initial catalog=LEGAL"
.CommandType = adCmdStoredProc
.CommandText = "EXPEDIENTE_UPDATE"
.Parameters.Append .CreateParameter("@NUMREGISTRO", adChar, adParamInput, 1, wNumRegistro)
.Execute
End With

Puede ser Cm sea una variable de modulo y que no descarges cuando acaba el procediento, entonces siempre le estas añadiendo parametros.

Suerte...