Private ReadOnly Property AenderungseingangBS_TypRow() As _
   AEKODB.AenderungseingangRow
        Get
            If Me.BS_Aenderungseingang.Current IsNot Nothing Then
                Return DirectCast(DirectCast(Me.BS_Aenderungseingang.Current, _
                  DataRowView).Row, AEKODB.AenderungseingangRow)
            End If
            Return Nothing
        End Get
    End Property