DataGridView1.DataSource = From l In con_string.GetTable(Of BELEG)() _
           Where l.Belegtyp = "W" And l.Belegnummer = TextBox1.Text _
           Join a In con_string.GetTable(Of BELEGP)() On l.Belegnummer Equals _
           a.Belegnummer _
             Where (a.Posnummer > 1 Or (a.Posnummer = 1 And a.Hauptkennung _
             <> 0)) And a._POS < 600 _
           Join b In con_string.GetTable(Of ART)() On a.Artikelnummer Equals _
           b.Artikelnummer _
           Group Join c In con_string.GetTable(Of LAGERP)() On a.Artikelnummer _
               Equals c.Artikelnummer Into bestand = Group _
                   Select _
                   belegnummer = If(l.Belegnummer Is Nothing, "0", _
                   l.Belegnummer), _
                   Auftrag = If(l._AUFTRAG Is Nothing, "_", l._AUFTRAG), _
                   Bestand = bestand _
                   Order By Pos