<Serializable()> Public Class clsLagerzugang
    Implements Runtime.Serialization.ISerializable, _
    Runtime.Serialization.IDeserializationCallback
 
    Public InvNr As String:    Public Lieferant As Integer
    Public Artikelnummer As String :    Public Grösse As String
    Public Farbe As String :    Public ICode As Long
    Public Artikelbezeichnung As String :    Public Menge As Integer
    Public EPreis As Decimal :    Public VPreis As Decimal
    Public Datum As Date 
 
    Public Sub GetObjectData(ByVal info As _
      System.Runtime.Serialization.SerializationInfo, ByVal context As _
      System.Runtime.Serialization.StreamingContext) Implements _
      System.Runtime.Serialization.ISerializable.GetObjectData
 
        info.AddValue("InvNr", InvNr)
        ' (Wegen Länge der Nachricht auf nur einen Eintrag gekürzt)
    End Sub
    Public Sub New( _
        ByVal info As Runtime.Serialization.SerializationInfo, _
        ByVal context As Runtime.Serialization.StreamingContext)
        ' Hier kommt der Fehler
        InvNr = info.GetValue(InvNr, GetType(String))
        ' (Wegen Länger der Nachricht auf nur einen Eintrag gekürzt)
    End Sub
End Class

        mySQLConnection.Open()
        mySQLCommand.Connection = mySQLConnection
        mySQLCommand.CommandText = "Select Artikel, Gebucht, Übertragen from " _
          & _
            "LagZugang where Art=03 and FilialCode='" & FilialCode & "'"
        Dim dAdapter As New CoreLab.MySql.MySqlDataAdapter(mySQLCommand)
        Dim dTable As New System.Data.DataTable
        dAdapter.Fill(dTable)
        prgBar.Maximum = dTable.Rows.Count : prgBar.Value = 0
        For Each dRow As System.Data.DataRow In dTable.Rows
            Dim b As Byte() = CType(dRow("Artikel"), Byte())
 
            Dim Stream As New System.IO.MemoryStream(b)
            Dim usr As New clsLagerzugang
            Dim form As New _
              Runtime.Serialization.Formatters.Binary.BinaryFormatter()
            usr = form.Deserialize(Stream)