smSQL = "SELECT * FROM ARTIKEL"
 
   Set rgArtikelListe = dgDBase.OpenRecordset(smSQL)
   rgArtikelListe.MoveLast
   rgArtikelListe.MoveFirst
 
   'Trägt die Datensätze in den ListView ein
   With rgArtikelListe
      For i = 1 To rgArtikelListe.RecordCount
         Set lmListItem = lstArtikel.ListItems.Add(, , !ArtNr)
         lmListItem.SubItems(1) = !Name
         lmListItem.SubItems(2) = Format$(!VK, "##,###,##0.00") & " €"
         lmListItem.SubItems(3) = Format$(!EK, "##,###,##0.00") & " €"
         lmListItem.SubItems(4) = Format$(!Pfand, "##,###,##0.00") & " €"
         lmListItem.SubItems(5) = !Lager
         lmListItem.SubItems(6) = !Bemerkung
         .MoveNext
      Next
   End With