FindFirst, FindLast, FindNext, FindPrevious Methods Example 2 (Professional Edition Only)

This example creates a Dynaset and then uses FindFirst to locate the first record satisfying the title condition.

Dim MyCriteria As String, MyDB As Database, MySet As Dynaset
MyCriteria = "State = 'NY'"             ' Define search criteria.
Set MyDB = OpenDatabase("BIBLIO.MDB")
' Create a Dynaset based on Publishers table.
Set MySet = MyDB.CreateDynaset("Publishers")
MySet.FindFirst MyCriteria              ' Find first matching record.
If Not Data1.Recordset.NoMatch Then...  ' Check if record is found.
MySet.FindNext MyCriteria               ' Find next matching record.