Dim rTable As System.Data.DataTable = New System.Data.DataTable( _
          "Artikel")
        Dim srcRow As System.Data.DataRowCollection = _
        Me.DtsArtikelZusatz.artikelstamm.Rows
 
        For Each Row As System.Data.DataRow In srcRow
            If Row("InvNr").ToString = InvNr And CInt(Row( _
              "Lieferant").ToString) = Lieferant _
                            And Row("ArtikelNr").ToString = ArtikelNr Then
                If CInt(Row("DivArt").ToString) = 1 Then
                    rTable.ImportRow(Row)
                Else
                    If Row("Groesse").ToString = Grösse And Row( _
                      "Farbe").ToString = Farbe Then
                        rTable.ImportRow(Row)
                    End If
                End If
            End If
        Next