I've figured out a solution using the FindFirst method on my Recordset which seems much more efficient, too:
Dim dB As Database, rst As DAO.Recordset, rstProductList as DAO.Recordset
...
Set dB = CurrentdB
Set rst = dB.OpenRecordset("tblSuppliers", dbOpenDynaset)
...
Do Until rstProductist.EOF...