Sub poslstlstReihungAnzeigen()
        DatenbankZugriff.conStr = "Provider=Microsoft.jet.OLEDB.4.0; DATA" & _
          "SOURCE=BackOffice1.mdb"
        Dim dtAusgabePos As DataTable
 
        MessageBox.Show(me.txtRechnungNrNew.Text.ToString)
        dtAusgabePos = DatenbankZugriff.abfragen("SELECT * FROM tblArtikel" & _
          "WHERE idRechnung =" & Me.txtRechnungNrNew.Text.ToString)
 
        dv = New DataView(dtAusgabePos)     'dataView erzeugen
        Me.lstReihung.DataSource = dv       'listbox anbindung
 
        Me.lstReihung.DisplayMember = "Pos" 'schlüsselspalte
        Me.lstReihung.ValueMember = "Pos"   'anzeigespalte
 
    End Sub

    Private Sub lstReihung_SelectedIndexChanged(ByVal sender As System.Object, _
      ByVal e As System.EventArgs) Handles lstReihung.SelectedIndexChanged
        'index wird ausgelesen und in txtboxen geschrieben
        Me.txtArtikelname.Text = dv(lstReihung.SelectedIndex).Row( _
          "Artikelname").ToString()
        Me.txtArtikelbeschreibung.Text = dv(lstReihung.SelectedIndex).Row( _
        "Artikelbeschreibung").ToString()
        Me.txtEinzelpreis.Text = dv(lstReihung.SelectedIndex).Row( _
        "Einzelpreis").ToString()
        Me.txtMenge.Text = dv(lstReihung.SelectedIndex).Row("Menge").ToString()
        Me.cmbEinheit.Text = dv(lstReihung.SelectedIndex).Row( _
          "Einheit").ToString()
    End Sub