For Each row In rows
                    Dim cells() = row.Split(CChar(vbTab))
                    Dim fan = From prod In psolData.Products Where prod.ProdName.Equals(From test In psolData.Products Where test.ProdNo.Equals(cells(2).ToString().Trim()) Select test.ProdName) Select prod.ProdName
                    Dim Mill = From hej In deliverySuppliers Where hej.DisplayName.Equals(cells(1).ToString()) Select hej.DelSupNo

                    Dim supplier As String = Mill.First()
                    Dim prodname = fan.First()

                    Dim lala As String = ""
                    Dim lala2 As String = ""

                    If (supplier = lala And prodname = lala2) Then
                        Dim vaiabel = False
                        Exit For
                    End If

                    lala = supplier
                    prodname = lala2

                Next