list1.additem, + vbTab + Rs(0)
Rs.MoveNext

 'anbinden der Datenbank für gruppe KASCHIERUNG
    Dim DB1 As Database  'deklaration für Database
    Dim Rs1 As Recordset 'Deklaration für Recordset
 
    Set DB1 = DBEngine.OpenDatabase("m:edvexternkontinvKont_Inv.mdb")           _
      'datenbankanbindung wird angezapft
    Set Rs1 = DB1.OpenRecordset("SELECT artikel FROM a_bekl") 'Informationen 
    ' über die Abrfage werden deklariert
 
 
    If Rs1.RecordCount > 0 Then      'Füllen der Listbox durch While Schleife 
    ' bis alle Artikel durchlaufen sind
  While Not Rs1.EOF
 
    List1.AddItem , Rs1(0)
 
    Rs1.MoveNext                     'Wechseln zum nächsten artikel
 
  Wend
End If