Private Sub Form_Load()
    Dim DB As Database  'deklaration für Database
    Dim Rs As Recordset 'Deklaration für Recordset
 
    Set DB = DBEngine.OpenDatabase("D:\visual-basic\kontinv\datenanbindung.mdb")
    Set Rs = DB.OpenRecordset("SELECT ArtikelNummer FROM t_Fertigung")
 
    If Rs.RecordCount > 0 Then      'Füllen der Listbox durch While Schleife 
    ' bis alle Artikel durchlaufen sind
  While Not Rs4.EOF
    list_Fertigung.AddItem Rs4(0)
    Rs.MoveNext                     'Wechseln zum nächsten artikel
  Wend
End If
 
Rs.Close
DB.Close
Set DB = Nothing
 
End Sub

cu
Bris

"640 KB Ram sind mehr als irgendein Programm jemals ben?tigen wird."
- (Bill Gates - 1981)