Dim Db As Database
Dim Rs As Recordset
Dim SQL As String
 
Set Db = DBEngine.OpenDatabase("DeineMDB.mdb")
 
SQL  = "SELECT * FROM DeineTabelle WHERE farbe = 'blau'"
Set Rs = Db.OpenRecordset(SQL)
If Rs.RecodCount > 0 Then
  <font color=green>' Jetzt kannst Du alle Treffer "durchlaufen"</font>
  While Not Rs.Eof
    List1.AddItem Rs("ArtikelNr")
    Rs.MoveNext
  Wend
Else
  MsgBox "Kein Artikel mit Farbe blau gefunden!"
End If
Rs.Close
Set Rs = Nothing
 
Db.Close
Set Db = Nothing