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