[RESOLVED] Procedure or Function expects parameter, which was not supplied.

[ERUM]

i m getting an error

Procedure or Function 'User_Insert' expects parameter '@sal', which was not supplied.

and her is the code

Protected Sub btn_submitt_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btn_submitt.Click




        If (ddl_Country.SelectedItem.Text = "Select Country") Then
            Me.Label1.Visible = True
            Me.Label1.Text = "Please Select Country"
        Else
            Me.Label1.Visible = False
            Dim n As Int32
            Dim connString As String = System.Configuration.ConfigurationManager.ConnectionStrings("containerConnectionString").ConnectionString


            Dim con As SqlConnection = New SqlConnection(connString)
            'con.Open()
            Dim str, str1 As String





            cmd.Parameters.Add("@sal", SqlDbType.NVarChar, 255).Value = Me.DropDownList1.SelectedItem.Text
            cmd.Parameters.Add("@Name", SqlDbType.NVarChar).Value = Me.txt_name.Text
            cmd.Parameters.Add("@Position", SqlDbType.NVarChar).Value = Me.txt_position.Text
            cmd.Parameters.Add("@Companyname", SqlDbType.NVarChar).Value = Me.txt_cname.Text
            cmd.Parameters.Add("@Address", SqlDbType.NVarChar).Value = Me.txt_address.Text
            cmd.Parameters.Add("@city", SqlDbType.NVarChar).Value = Me.txt_city.Text
            cmd.Parameters.Add("@state", SqlDbType.NVarChar).Value = Me.txt_state.Text
            cmd.Parameters.Add("@Country", SqlDbType.NVarChar).Value = Me.ddl_Country.SelectedItem.Text
            cmd.Parameters.Add("@telephone", SqlDbType.NVarChar).Value = Me.txt_Telephone.Text
            cmd.Parameters.Add("@telefax", SqlDbType.NVarChar).Value = Me.txt_telefax.Text
            cmd.Parameters.Add("@Email", SqlDbType.NVarChar).Value = Me.txt_email.Text
            cmd.Parameters.Add("@webaddress", SqlDbType.NVarChar).Value = Me.txt_webaddress.Text
            'cmd.Parameters.Add("@want_visa", SqlDbType.Int ).Value = Me.rd
            'cmd.Parameters.Add("@Email", SqlDbType.NVarChar).Value = Me.txt_email.Text


            'Create a SqlParameter object to hold the output parameter value
            Dim UserIDParam As New SqlParameter("@UserID", SqlDbType.Int)

            'IMPORTANT - must set Direction as Output
            UserIDParam.Direction = ParameterDirection.Output

            'Finally, add the parameter to the Command's Parameters collection
            cmd.Parameters.Add(UserIDParam)



            cmd = New SqlCommand("User_Insert", con)
            cmd.CommandType = CommandType.StoredProcedure
            con.Open()



            Dim reader As SqlDataReader = cmd.ExecuteReader()


            Dim userid As Int32 = Convert.ToInt32(UserIDParam.Value)





           

        End If


     

    End Sub