For i As Integer = 0 To ds.Tables("tblMitgliederEhrungen").Rows.Count - 1
 
            Dim objNeueEhrung As clsMitgliederehrung
            Dim lviNeueEhrung As New ListViewItem
 
            objNeueEhrung = Searcher.SchreibeNeuesMitgliederEhrungsObjekt(ds, i)
            lviNeueEhrung.Text = objNeueEhrung.Ehrung.Name
            lviNeueEhrung.Tag = objNeueEhrung
            lviNeueEhrung.ImageIndex = 0
 
            Me.lsvEhrungen.Items.Add(lviNeueEhrung)
 
        Next

Public Class clsMitgliederehrung
 
...
 
    Private objEhrung As New clsEhrung
 
...
 
    Public Property EhrungsLfdNr() As Integer
        Get
            Return intEhrungsLfdNr
        End Get
        Set(ByVal Value As Integer)
            intEhrungsLfdNr = Value
 
            Dim ds As New DataSet
            Dim da As New OleDb.OleDbDataAdapter( _
                "SELECT * FROM tblEhrungen WHERE " & _
                "EhrungsLfdNr=" & Value, cn)
            Dim Searcher As New clsZugriffskontrolle
 
            Try
                da.Fill(ds, "tblEhrungen")
            Catch ex As Exception
                Exit Property
            End Try
 
            objEhrung = Searcher.SchreibeNeuesEhrungsObjekt(ds, 0)
 
        End Set
    End Property
 
...
 
    Public ReadOnly Property Ehrung() As clsEhrung
        Get
            Return objEhrung
        End Get
    End Property
 
...
 
End Class

Public Class clsZugriffskontrolle
 
...
 
    Public Function SchreibeNeuesEhrungsObjekt(ByVal ds As DataSet, ByVal index _
      As Integer) As clsEhrung
 
        Dim objNeueEhrung As New clsEhrung
 
        With ds.Tables("tblEhrungen").Rows(index)
            objNeueEhrung.LfdNr = .Item("EhrungsLfdNr")
            If IsDBNull(.Item("Ehrungsname")) = False Then
                objNeueEhrung.Name = .Item("Ehrungsname")
            End If
            If IsDBNull(.Item("Eintragsdatum")) = False Then
                objNeueEhrung.Eintragsdatum = CDate(.Item("Eintragsdatum"))
            End If
            If IsDBNull(.Item("Ehrungsnummer")) = False Then
                objNeueEhrung.Nummer = .Item("Ehrungsnummer")
            End If
        End With
 
        Return objNeueEhrung
 
    End Function
 
...
 
End Class