Try
            Dim cmd As New OleDb.OleDbCommand("SELECT Person FROM Mitarbeiter" & _
              "WHERE Nummer = 1", New OleDb.OleDbConnection(Me.sCon))
            Dim ser As New _
            System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
            Dim b() As Byte
            cmd.Connection.Open()
            b = CType(cmd.ExecuteScalar(), Byte())
            Dim ms As New IO.MemoryStream(b)
            Dim per As person
            per = DirectCast(ser.Deserialize(ms), person)
            Debug.WriteLine(per.Nachname + ", " + per.Vorname)
        Catch ex As Exception
            MessageBox.Show(ex.ToString)
        End Try