El procedimiento o la función '' esperaba el parámetro '', que no se ha especificado

Tengo un problema para poder agregar, borrar y actualizar datos en sql mangement 2008 y que se guarden en la base de datos ya que me sale este error como lo describo en e titulo, me comentan que el problema no es de SQL sino de VIsual.net al hacer el llamado del parámetro o la función y la verdad ya no se que hacer y he revisado el código y no encuentro el error, les copio el código que utilizo en visual ultimate 2010 y sql.

Estoy utilizando SQL server mangement studio y Visual studio 2010

Por si me pueden echar la mano. Lo estoy manejando en 3 capas.

Se los voy a agradecer mucho,,, saludos.

CÓDIGO VISUAL

Entity

Public Class EPuesto
Private _puestoid As Int32
Private _puesto As String
Public Property PuestoId() As Int32
Get
Return _puestoid
End Get
Set(ByVal value As Int32)
_puestoid = value
End Set
End Property
Public Property Puesto() As String
Get
Return _puesto
End Get
Set(ByVal value As String)
_puesto = value
End Set
End Property
End Class

CÓDIGO PARA LLAMAR AL PROCEDIMIENTO ALMACENADO DE SQL

Public Class DaoPuesto
Dim db As New Conexión.Database
Public Sub Agregar(ByVal obj As EPuesto)
Try
Dim arrParams As New ArrayList
arrParams.Add(New System.Data.SqlClient.SqlParameter("@accion", 1))
arrParams.Add(New System.Data.SqlClient.SqlParameter("@Puesto", obj.Puesto))
db.ExecuteSP("sppuesto", arrParams)
Catch ex As Exception
Throw ex
End Try
End Sub

CÓDIGO SQL DEL PROCEDIMIENTO ALMACENADO

USE [BDActivos]
GO
/****** Object: StoredProcedure [dbo].[sppuesto] Script Date: 03/07/2014 17:11:39 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
ALTER PROCEDURE [dbo].[sppuesto]
@puestoid int,
@puesto nvarchar(50),
@accion int
AS
--insertar registros nuevos
if @accion = 0
begin
insert into Tpuestos(puesto)
values (@puesto)
end
--Eliminar registros
IF @accion = 1
begin
delete from Tpuestos
where @puestoid = puestoid
end
--Actualizar Registros
if @accion = 2
begin
update Tpuestos
set
@puesto = puesto
where
@puestoid = puestoid
end
--Buscar un Registro
if @accion = 3
begin
select * from Tpuestos
where
puestoid = puestoid
end
--Mostrar Registros
if @accion = 5
begin
select * from Tpuestos
end