VB.Net/Database ADO.net/DataSet to Binary

Serializing DataSet to Binary Format

Imports System
Imports System.Xml
Imports System.Xml.Schema
Imports System.IO
Imports System.Data.OleDb
Imports System.Data.rumon
Imports System.Data.SqlClient
Imports System.Data
Imports System.Runtime.Serialization.Formatters
Imports System.Runtime.Serialization.Formatters.Soap
Imports System.Runtime.Serialization.Formatters.Binary
Imports System.Xml.Serialization

Public Class MainClass
    
    Shared Sub Main()
        Dim Connection As SqlConnection = New SqlConnection("Server=(local)\SQLEXPRESS;Initial Catalog=MyDatabase;Integrated Security=SSPI")
      Dim MyDA As SqlDataAdapter = New SqlDataAdapter( _
         "SELECT * FROM Employee", Connection)
      Dim MyDS As DataSet = New DataSet()

      Console.WriteLine("Now Serializing to Binary Format...")
      Dim bs As Stream = File.Open("MyDS.bin", _
         FileMode.Create, FileAccess.ReadWrite)
      Dim bf As BinaryFormatter = New BinaryFormatter()
      bf.Serialize(bs, MyDS)
      bs.Close()
    End Sub
End Class