将LINQ转换为XML结果到VB.NET中的通用列表.奇怪的错误

Imports System.Xml.Linq

Module Module1

    Sub Main()
        ' 创建一个内存中的数据集合
        Dim data As List(Of Person) = New List(Of Person)
        data.Add(New Person With {.Name = "Alice", .Age = 25})
        data.Add(New Person With {.Name = "Bob", .Age = 30})
        data.Add(New Person With {.Name = "Charlie", .Age = 35})

        ' 使用LINQ查询数据集合
        Dim query = From person In data
                    Where person.Age > 25
                    Select person

        ' 将查询结果转换为XElement对象
        Dim xml = New XElement("Persons",
                               From person In query
                               Select New XElement("Person",
                                                  New XElement("Name", person.Name),
                                                  New XElement("Age", person.Age)))

        ' 输出XML结果
        Console.WriteLine(xml.ToString())
    End Sub

End Module

Public Class Person
    Public Property Name As String
    Public Property Age As Integer
End Class