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