[CODE]/Dim db As DAO.Database
Dim rec1 As DAO.Recordset
Dim recFiltered1 As DAO.Recordset
Set db = CurrentDb
Set rec1 = db.OpenRecordset("SELECT [Product Suppliers Name].[Product ID], [Product Suppliers Name].[Supplier] FROM [Product Suppliers Name];", dbOpenDynaset, dbSeeChanges)...