ต้องการ Update ข้อมูลเพิ่มเติม พึ่งหัดเขียนค่ะตอนนี้สร้าง form ไว้สองหน้าค่ะหน้าแรกสามารถ insert

Imports System.Data.SqlClient
Imports System.Data
Imports System.Web.HttpContext

Partial Class first
    Inherits System.Web.UI.Page
    Dim addUser As Data.SqlClient.SqlParameter
    Dim con As New Data.SqlClient.SqlConnection()
    Dim cmd As New Data.SqlClient.SqlCommand()
    Public Sub insert()
        con.ConnectionString = "Data Source=YTC-MDN-MONGKOL\APLUS;Initial Catalog=Register;User ID=sa;Password=root"
        cmd.CommandText = "INSERT INTO Profile(ID,Name)VALUES(@ID,@Name)"

        cmd.Parameters.Add("@ID", Data.SqlDbType.NChar).Value = txtID.Text()
        cmd.Parameters.Add("@Name", Data.SqlDbType.NVarChar).Value = txtName.Text()

        con.Open()
        cmd.Connection = con
        cmd.ExecuteNonQuery()
        con.Close()



    End Sub

    Protected Sub btnext_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnext.Click
        insert()
        'Response.Write("<b> Add Data Name : " + txtName.Text + "</b><br><hr>")
        'Response.Redirect(App_Path())
        Response.Redirect("http://localhost:1035/Programtest1/second.aspx?ID=" + txtID.Text + "&txtName=" + txtName.Text)


    End Sub
End Class

Imports System.Data.SqlClient
Imports System.Data
Imports System.Web.HttpContext

Partial Class second
    Inherits System.Web.UI.Page
    Dim add As Data.SqlClient.SqlParameter
    Dim con As New Data.SqlClient.SqlConnection()
    Dim cmd As New Data.SqlClient.SqlCommand()

    Public Sub update()
        con.ConnectionString = "Data Source=YTC-MDN-MONGKOL\APLUS;Initial Catalog=Register;User ID=sa;Password=root"
        cmd.CommandText = "update Profile set Lastname=@Lastname,Age=@Age where ID=@ID"

        cmd.Parameters.Add("@Lastname", Data.SqlDbType.NChar).Value = txtLastname.Text()
        cmd.Parameters.Add("@Age", Data.SqlDbType.NChar).Value = txtAge.Text()

        con.Open()
        cmd.Connection = con
        cmd.ExecuteNonQuery()
        con.Close()

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Response.Write("<b>ID : " + Request.Params("ID") + "<br>")
        Response.Write("<b>Name : " + Request.Params("txtName") + "<hr>")

    End Sub

    Protected Sub btUpdtae_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btUpdtae.Click
        update()

    End Sub
End Class