Dim usr As New clsBenutzer
        usr.Nachname = "Bacik"
        usr.Vorname = "Harald"
        usr.Tätigkeiten = New clsBenutzer.Benutzer() _
          {clsBenutzer.Benutzer.Administrator, _
            clsBenutzer.Benutzer.Filialleiter}
 
        Dim form As New Runtime.Serialization.Formatters.Binary.BinaryFormatter( _
          )
 
        ' --- Serialisieren
        Dim Stream As New System.IO.MemoryStream
        form.Serialize(Stream, usr)
 
        mySQLConnection.Open()
        mySQLCommand.Connection = mySQLConnection
        mySQLCommand.CommandText = "Update Mitarbeiter Set Rolle= @Data where " _
          & _
            "ID=1"
        mySQLCommand.Parameters.AddWithValue("@Data", Stream.ToArray)
        mySQLCommand.ExecuteNonQuery()
        Stream.Close()
        mySQLConnection.Close()
        MsgBox("OK")

mySQLConnection.Open()
        mySQLCommand.Connection = mySQLConnection
        mySQLCommand.CommandText = "Select Rolle from Mitarbeiter where ID=1"
        Dim dAdapter As New CoreLab.MySql.MySqlDataAdapter(mySQLCommand)
        Dim dTable As New System.Data.DataTable
        dAdapter.Fill(dTable)
        Dim dRow As System.Data.DataRow = dTable.Rows(0)
        Dim b As Byte() = CType(dRow("Rolle"), Byte())
 
        Dim Stream As New System.IO.MemoryStream(b)
        Stream.Seek(0, IO.SeekOrigin.Begin)
        Dim usr As New clsBenutzer
        Dim form As New Runtime.Serialization.Formatters.Binary.BinaryFormatter( _
          )
        ' HIER KOMMT DER FEHLER!
        usr = form.Deserialize(Stream)
        MsgBox("OK")
        mySQLConnection.Close()