أرجو المساعدة (في stored procedure)

مرفق الكود بعد التعديل

Dim dt As New DataTable
Dim con As New SqlConnection


 con.ConnectionString = "Data Source=.\SQLEXPRESS;AttachDbFilename=|DataDirectory|\user.mdf;Integrated Security=True;User Instance=True"

Dim cmd As New SqlCommand("editname",con)


        cmd.Connection = con.Connection
        cmd.CommandType = CommandType.StoredProcedure

cmd.Parameters.AddWithValue("@username", TextBox1.Text)


        con.Connection.Open()
        Dim dr As SqlDataReader
        dr = cmd.ExecuteReader
        dt.Load(dr)

        GridView1.DataSource = dt
        GridView1.DataBind()
        con.Connection.Close()