Private Sub Form_Load()
  <font color=green>' anbinden der Datenbank für Gruppe FERTIGUNG</font>
  Dim DB As Database <font color=green>' deklaration für Database</font>
  Dim Rs As Recordset <font color=green>' Deklaration für Recordset</font>
 
  Set DB = DBEngine.OpenDatabase("m:edvexternkontinvKont_Inv.mdb") 
  <font color=green>' datenbankanbindung wird angezapft</font>
  Set Rs = DB.OpenRecordset("SELECT artikel FROM a_fert") <font color=green>' 
  ' Informationen über die Abrfage werden deklariert</font>
 
  If Rs.RecordCount > 0 Then <font color=green>' Füllen der Listbox durch While 
  ' Schleife
bis alle Artikel durchlaufen sind</font>
    <font color=green>' Status-Form anzeigen</font>
    Dim lngMax As Long
    Dim lngAkt As Long
 
    lngAkt = 0: lngMax = Rs.RecordCount
 
    Load frmStatus
    ShowProgress frmStatus.picProgress, 0, 0, 0
    frmStatus.Show
    DoEvents
 
    While Not Rs.EOF
      <font color=green>' Status aktualisieren</font>
      lngAkt = lngAkt + 1
      ShowProgress frmStatus.picProgress, lngAkt, 0, lngMax
 
      list_fertigung.AddItem Rs(0)
      Rs.MoveNext <font color=green>' Wechseln zum nächsten artikel</font>
    Wend
  End If
 
  <font color=green>' Statusfenster wieder ausblenden</font>
  Unload frmStatus
 
  Rs.Close
  DB.Close
  Set DB = Nothing
End Sub

ShowProgress-Funktion findest Du in den Tipps & Tricks:
 ProgressBar im Eigenbau

Cu
Dieter