Sub FindRecord() 
                Dim dbs As Database, rst As Recordset   Dim dbs As Database, rst As Recordset 
   Dim strCriteria As String 
  ' Return reference to current database. 
  Set dbs= CurrentDb 
  ' Define search criteria. 
  strCriteria= "[ShipCountry] = 'UK' And " _ 
    & "[OrderDate] >= #1-1-95#" 
  ' Create a dynaset-type Recordset object based on Orders table. 
  Set rst= dbs.OpenRecordset("Orders", dbOpenDynaset) 
  ' Find first matching record. 
  rst.FindFirst strCriteria 
  ' Check if record is found. 
  If rst.NoMatch Then 
    MsgBox "No record found." 
  Else' 
    Find other matching records. 
    Do Until rst.NoMatch 
    Debug.Print rst!ShipCountry; " "; rst!OrderDate 
    rst.FindNext strCriteria 
   Loop 
  End If 
  rst.Close 
  Set dbs= Nothing 
End Sub