Try
            '// db erstellen
            Dim databaseName As String = "C:\test.mdb"
            If IO.File.Exists(databaseName) Then IO.File.Delete(databaseName)
            Dim cat As New ADOX.Catalog
            Dim cnstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
              "Source=" + databaseName
            cat.Create(cnstr)
 
            '// tbl erstellen
            Dim tbl As New ADOX.TableClass
            tbl.Columns.Append("bytefld", ADOX.DataTypeEnum.adLongVarBinary)
            tbl.Columns.Append("id", ADOX.DataTypeEnum.adInteger)
            tbl.Name = "testtbl"
            tbl.ParentCatalog = cat
            cat.Tables.Append(tbl)
 
            '// index erzeugen
            Dim Idx As New ADOX.Index
            Idx.Name = "id"
            Idx.Unique = True
            Idx.PrimaryKey = True
            Idx.Columns.Append("id", ADOX.DataTypeEnum.adInteger)
            tbl.Indexes.Append(Idx)
 
            '// dt füllen
            Dim dt As New DataTable
            Dim da As New OleDb.OleDbDataAdapter(New OleDb.OleDbCommand("SELECT" & _
              "id, bytefld FROM testtbl", New OleDb.OleDbConnection(cnstr)))
            da.FillSchema(dt, SchemaType.Source)
            da.Fill(dt)
 
            '// werte adden
            Dim fs As New IO.BinaryReader(New IO.StreamReader( _
              "C:\boot.ini").BaseStream)
            Dim b(CInt(fs.BaseStream.Length) - 1) As Byte
            b = fs.ReadBytes(CInt(fs.BaseStream.Length))
            fs.Close()
            Dim r As DataRow = dt.NewRow
            r("id") = 1
            r("bytefld") = b
            dt.Rows.Add(r)
            da.InsertCommand = New OleDb.OleDbCommandBuilder( _
              da).GetInsertCommand
            da.Update(dt)
 
            '// test / auslesen
            Dim dt2 As New DataTable
            Dim da2 As New OleDb.OleDbDataAdapter(New OleDb.OleDbCommand( _
              "SELECT id, bytefld FROM testtbl", New OleDb.OleDbConnection( _
              cnstr)))
            da2.FillSchema(dt2, SchemaType.Source)
            da2.Fill(dt2)
            Dim b2() As Byte = CType(dt2.Rows(0)("bytefld"), Byte())
            Dim bw As New IO.BinaryWriter(New IO.StreamWriter( _
              "C:\temp\myBoot.ini").BaseStream)
            bw.Write(b2)
            bw.Close()
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try