This example uses the NoMatch property to cycle through all records matching specific criteria.
Dim Criteria As String
Data1.DatabaseName = "BIBLIO.MDB"
Data1.RecordSource = "Titles"
Criteria = "Title = 'Database Design'" ' Define search criteria.
...
Data1.Recordset.FindFirst Criteria ' Locate first occurrence.
' Loop until no matching records.
Do Until Data1.Recordset.NoMatch
...
MySet.FindNext Criteria ' Locate next record.
Loop ' End of loop.