vb.net,如何将数据集转换为xml

Imports System.Data

Module Module1
    Sub Main()
        ' 创建一个数据集
        Dim dataSet As New DataSet("MyDataSet")

        ' 创建一个数据表
        Dim dataTable As New DataTable("MyDataTable")
        dataTable.Columns.Add("ID", GetType(Integer))
        dataTable.Columns.Add("Name", GetType(String))

        ' 添加数据行
        dataTable.Rows.Add(1, "John")
        dataTable.Rows.Add(2, "Jane")
        dataTable.Rows.Add(3, "Tom")

        ' 将数据表添加到数据集中
        dataSet.Tables.Add(dataTable)

        ' 将数据集转换为XML并保存到文件
        dataSet.WriteXml("data.xml")

        Console.WriteLine("数据集已成功转换为XML文件。")
        Console.ReadLine()
    End Sub
End Module