Imports System
Imports System.IO
Imports System.Data
Imports System.Data.OleDb
Imports System.Runtime.Serialization
Imports System.Runtime.Serialization.Formatters.Binary
Public Class Class1
    '/******************************************************************/
    <Serializable()> Public Structure Data
        Public a As String
        Public b As String
    End Structure

    <STAThread()> Public Shared Sub Main()
        Dim cn As OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Temp\db5.mdb;")
        cn.Open()
        '// в db5.mdb есть таблица TBL1 с полями:
        '// ID     - AutoNumber
        '// Struct - OLE Object
        '/**ЗАПИСЬ СТРУКТУРЫ В БД **************************/
        Dim s As Data = New Data   '// <--- сохраним эту структуру в БД
        s.a = "привет врагам"
        s.b =  7 
        Dim cm As OleDbCommand = New OleDbCommand("INSERT INTO TBL1 (Struct) VALUES(?)", cn)
        Dim pm As OleDbParameter = New OleDbParameter("@Struct", OleDbType.LongVarBinary)

        Dim ms As MemoryStream = New MemoryStream
        Try
            Dim ft As BinaryFormatter = New BinaryFormatter
            ft.Serialize(ms, s)
            pm.Value = ms.ToArray()
            ms.Close()
        Finally
            Dim disp As IDisposable
            If TypeOf ms Is IDisposable Then
                disp = ms
                disp.Dispose()
            End If
        End Try
        cm.Parameters.Add(pm)
        cm.ExecuteNonQuery()
        '/**ПОЛУЧЕНИЕ AUTONUMBER'а ****************/
        Dim an As OleDbCommand = New OleDbCommand("SELECT @@IDENTITY", cn)
        Dim id As Integer = Convert.ToInt32(an.ExecuteScalar())

        '/**ЧТЕНИЕ СТРУКТУРЫ ИЗ БД **************************/
        Dim d As Data ' // <--- сюда восстановим сохраненную в БД структуру
        Dim cs As OleDbCommand = New OleDbCommand("SELECT Struct FROM TBL1 WHERE ID=" + id.ToString(), cn)
        Dim rd As OleDbDataReader = cs.ExecuteReader()
        rd.Read()

        ms = New MemoryStream(CType(rd("Struct"), Byte()))
        Try
            Dim ft As BinaryFormatter = New BinaryFormatter
            d = CType(ft.Deserialize(ms), Data)
            ms.Close()
        Finally
            Dim disp As IDisposable
            If TypeOf ms Is IDisposable Then
                disp = ms
                disp.Dispose()
            End If
        End Try
        rd.Close()
    End Sub
End Class

 uid  =  S a