Dim oRs As Recordset
 
Set oRs = Db.OpenRecordset("SELECT Feld1 FROM Tabelle WHERE Feld1 =" & _
  "'irgendwas'")
If oRs.RecordCount > 0 Then
  Do 
    List1.AddItem oRs(0)
    oRs.MoveNext
  Loop Until oRs.Eof
End If
oRs.Close

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de