NoMatch Property Example

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.