Set Index and seek the recordset
Sub exaRecordsetSeek() Dim db As Database Dim rsTable As Recordset Set db = CurrentDb Set rsTable = db.OpenRecordset("Books") rsTable.Index = "Title" rsTable.Seek ">=", "On" If Not rsTable.NoMatch Then Debug.Print rsTable!Title Else Debug.Print "No title beginning with word 'On'." End If rsTable.Close End Sub