System.Data.SqlClient.SqlException: Procedure or function testprocedure expects parameter @location, which was not supplied in ASP.Net

I m geeting issue while passing a parameter in a procedure.

Procedure or function testprocedure expects parameter @location which was not supplied

    Private Sub BindGrid()
        Dim location As String = "SIPAT"

        Dim strConnString As String = ConfigurationManager.ConnectionStrings("cmdpns").ConnectionString
        'Using con As New SqlConnection(strConnString)
        'Using cmd As New SqlCommand("SELECT * FROM Customers")

        Dim con As New SqlConnection(strConnString)
        Dim cmd As New SqlCommand()
        cmd.CommandType = CommandType.StoredProcedure
        cmd.CommandText = "testprocedure"
        cmd.Parameters.AddWithValue("@location", location)
        cmd.Connection = con

        Using sda As New SqlDataAdapter()
            cmd.Connection = con
            sda.SelectCommand = cmd
            ' Using dt As New DataTable()
            'sda.Fill(dt)
            'GridView1.DataSource = dt
            GridView1.DataBind()
            ' End Using
        End Using
        ' End Using
        'End Using
    End Sub