procedure or function has too many arguments specified... how to slove this problem

Public Shared Function CreateNewAMSPOSEntry(ByVal objAMSPOSEntry As clsAMSPOSEntry) As Integer

            If objAMSPOSEntry Is Nothing Then
                Throw New ArgumentNullException("objAMSPOSEntry")
            End If

            Dim db As DBAccess = New DBAccess
            Dim sqlCmd As SqlCommand = New SqlCommand()

            db.AddParamToSQLCmd(sqlCmd, "@SERIAL_NO", SqlDbType.NVarChar, 30, ParameterDirection.Input, objAMSPOSEntry.SERIAL_NO)
            db.AddParamToSQLCmd(sqlCmd, "@FLG_TYPE", SqlDbType.Bit, 1, ParameterDirection.Input, objAMSPOSEntry.FLG_TYPE)
            db.AddParamToSQLCmd(sqlCmd, "@SLNO", System.Data.SqlDbType.Int, 8, ParameterDirection.Output,objAMSPOSEntry.SLNO)

            db.SetCommandType(sqlCmd, CommandType.StoredProcedure, "SP_CREATEPOSENTRY")
            db.ExecuteScalarCmd(sqlCmd)
            Return sqlCmd.Parameters("@@IDENTITY").Value
        End Function

Protected Sub btnSave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSave.Click
       Dim ret As Boolean
       Dim flg As Boolean
       Dim objAMSPOSEntry As clsAMSPOSEntry = New clsAMSPOSEntry
       If txtSerialNum.Text <> "" Then
           objAMSPOSEntry.SERIAL_NO = txtSerialNum.Text
           If rdbAcc.Checked = True Then
               flg = True
           Else
               flg = False
           End If
           objAMSPOSEntry.FLG_TYPE = flg
           'If Not txtPONO.Text Is Nothing Then
           ret = clsAMSPOSEntry.CreateNewPOSEntry(objAMSPOSEntry)
           ' End If
           If ret = True Then
               MsgBox("Successfully Inserted Record!")
           End If
           Else
            MsgBox("Please fill the form before click on Save!")
        End If
    End Sub

Store Procedure:

ALTER PROCEDURE [dbo].[SP_CREATEPOSENTRY]
(
	
	@SERIAL_NO nvarchar(30),
	@FLG_TYPE bit,
	
)
AS
BEGIN
INSERT INTO [TBL_DEVMASTER] ([SERIAL_NO],  [FLG_TYPE]) VALUES ( @SERIAL_NO,  @FLG_TYPE);
	
RETURN @@IDENTITY
END;