dc.Log = Console.Out
        bel2 = From einbel In dc.Beleg _
                  Join einepos In dc.Position On einepos.pos_beleg_nr Equals _
                  einbel.beleg_nr _
                  Where einbel.beleg_vorgangsart = 25 _
                  And einbel.beleg_archiv = False _
                  Where einepos.pos_artikel_nr = 3170 _
                  Select einbel
 
 
        Me.DataGridView1.DataSource = bel2
        lblAnzahl.Text = DataGridView2.RowCount