[asp.net]#vb Update SQL แล้ว ไม่อัพเดต ครับ แต่ไม่มี error ใดๆ

   Dim strConnection As String = "Data Source=DELL_BLUE-PC;Initial Catalog=Test;Integrated Security=True"
            Dim Connection As New SqlConnection(strConnection)

            Dim strCommand As String = "Select [Username], [Name], [LastName], [Email], [Address] From [Member] Where [UserID]=@UserID"
            Dim Command As New SqlCommand(strCommand, Connection)
            Command.Parameters.AddWithValue("@UserID", CInt(Session("UserID")))

            Try
                Connection.Open()
                Dim dataReader As SqlDataReader = Command.ExecuteReader(CommandBehavior.SingleRow)
                dataReader.Read()
                txtusername.Text = dataReader("UserName").ToString()
                txtname.Text = dataReader("Name").ToString()
                txtlname.Text = dataReader("LastName").ToString()
                txtemail.Text = dataReader("Email").ToString()
                txtaddress.Text = dataReader("Address").ToString()
                dataReader.Close()
                Connection.Close()
            Catch ex As Exception
                MessageBox.Show(String.Format("Error: {0}", ex.Message))
            End Try

            lblwel.Text = String.Format("Welcome {0}", txtusername.Text)
          
        End If

 Dim strConnection As String = "Data Source=DELL_BLUE-PC;Initial Catalog=Test;Integrated Security=True"
        Dim Connection As New SqlConnection(strConnection)

        Dim strCommand As String = "Update [Member] Set [Name]=@Name ,[LastName]=@LastName ,[Email]=@Email ,[Address]=@Address Where [UserID]=@UserID"
        Dim Command As New SqlCommand(strCommand, Connection)

        Command.Parameters.AddWithValue("@Name", txtname.Text)
        Command.Parameters.AddWithValue("@LastName", txtlname.Text)
        Command.Parameters.AddWithValue("@Email", txtemail.Text)
        Command.Parameters.AddWithValue("@Address", txtaddress.Text)
        Command.Parameters.AddWithValue("@UserID", CInt(Session("UserID")))

        Try
            Connection.Open()
            Command.ExecuteNonQuery()
            Connection.Close()
            MessageBox.Show("อัฟเดตข้อมูลเรียบร้อย")
        Catch ex As Exception
            MessageBox.Show(String.Format("Error: {0}", ex.Message))
        End Try