如何保留数据集数据的副本以便在关闭程序vb.net后仍能使用它

Imports System.IO
Imports System.Xml.Serialization

Public Sub SaveDataSetToXml(dataSet As DataSet, filePath As String)
    Dim serializer As New XmlSerializer(GetType(DataSet))
    Using writer As New StreamWriter(filePath)
        serializer.Serialize(writer, dataSet)
    End Using
End Sub

Public Function LoadDataSetFromXml(filePath As String) As DataSet
    Dim serializer As New XmlSerializer(GetType(DataSet))
    Using reader As New StreamReader(filePath)
        Return CType(serializer.Deserialize(reader), DataSet)
    End Using
End Function

Imports System.Data.SqlClient

Public Sub SaveDataSetToDatabase(dataSet As DataSet, connectionString As String)
    Using connection As New SqlConnection(connectionString)
        connection.Open()
        For Each table As DataTable In dataSet.Tables
            For Each row As DataRow In table.Rows
                ' 构建SQL插入语句并执行
                Dim sql As String = $"INSERT INTO {table.TableName} ({String.Join(",", table.Columns)}) VALUES ({String.Join(",", row.ItemArray)})"
                Using command As New SqlCommand(sql, connection)
                    command.ExecuteNonQuery()
                End Using
            Next
        Next
    End Using
End Sub

Public Function LoadDataSetFromDatabase(connectionString As String) As DataSet
    Dim dataSet As New DataSet()
    Using connection As New SqlConnection(connectionString)
        connection.Open()
        Dim schemaTable As DataTable = connection.GetSchema("Tables")
        For Each row As DataRow In schemaTable.Rows
            Dim tableName As String = CType(row("TABLE_NAME"), String)
            Dim adapter As New SqlDataAdapter($"SELECT * FROM {tableName}", connection)
            Dim table As DataTable = New DataTable(tableName)
            adapter.Fill(table)
            dataSet.Tables.Add(table)
        Next
    End Using
    Return dataSet
End Function