Finding Records Using the Find Method : Recordset Find « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Recordset Find

Finding Records Using the Find Method

 
Sub Find_WithFind()
   Dim conn As ADODB.Connection
   Dim rst As ADODB.Recordset

   Set conn = New ADODB.Connection
   conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & CurrentProject.Path & "\mydb.mdb"
   Set rst = New ADODB.Recordset
   rst.Open "Employees", conn, adOpenKeyset, adLockOptimistic

   rst.Find "TitleOfCourtesy ='Ms.'"
   Do Until rst.EOF
      Debug.Print rst.Fields("LastName").Value
      rst.Find "TitleOfCourtesy ='Ms.'", SkipRecords:=1, _
          SearchDirection:=adSearchForward
   Loop

   rst.Close
   Set rst = Nothing
   conn.Close
   Set conn = Nothing
End Sub

 

Related examples in the same category