'Datenbank öffnen 
Dim SQL As String 
Dim DB As Database 
Dim Tabelle As Recordset 
Dim dbFile As String 
dbFile = "C:ProgrammDatenDaten.mdb" 
 
SQL = "SELECT * FROM Artikel Where ArtikelNr = '3'"  <---WRONG!!
Set DB = Workspaces(0).OpenDatabase(dbFile, False, False) 
Set Tabelle = DB.OpenRecordset(SQL, dbOpenDynaset) 
'Prüfen, ob Suche erfolgreich 
If Not Tabelle.EOF Then 
Do While Not Tabelle.EOF 
With Tabelle 
If Not IsNull(!ArtikelNr) Then A = !ArtikelNr 
.MoveNext 
End With 
List1.Additem A 
Loop 
Else 
'kein Datensatz vorhanden 
MsgBox "Keinen Artikel gefunden", vbCritical + vbOKOnly, "Suche" 
Exit Sub 
End If