Dim Db As Database
Dim Rs As Recordset
 
Set Db = DBEngine.OpenDatabase("DeineMDB.mdb")
Set Rs = Db.OpenRecordset("SELECT Feldname FROM Tabellenname")
 
If Rs.RecordCount > 0 Then
  Do Until Rs.Eof
    List1.AddItem Rs(0)
    Rs.MoveNext
  Loop
End If
 
Rs.Close
Db.Close

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de