Dim DB As Database
Dim Rs As Recordset
 
Set DB = DBEngine.OpenDatabase("ARTIKEL.MDB")
Set Rs = DB.OpenRecordset("SELECT ArtikelNr FROM Artikeldaten ORDER BY" & _
  "ArtikelNr")
 
If Rs.RecordCount > 0 Then
  While Not Rs.EOF
    List1.AddItem Rs(0)
    Rs.MoveNext
  Wend
End If
Rs.Close
DB.Close
Set DB = Nothing