Private Sub SparaBinärt()

MittDataSet.RemotingFormat = SerializationFormat.Binary
Dim bf As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
Dim fs As New IO.FileStream("c:\Datafiler\MinData.bin", IO.FileMode.OpenOrCreate)
bf.Serialize(fs, MittDataSet)
fs.Close()

End Sub

Private Sub ÖppnaBinärt()

MittDataSet.RemotingFormat = SerializationFormat.Binary
Dim bf As New Runtime.Serialization.Formatters.Binary.BinaryFormatter
Dim fs As New IO.FileStream("c:\Datafiler\MinData.bin", IO.FileMode.Open)
MittDataSet = bf.Deserialize(fs)
fs.Close()

End Sub