Access VisualBasic Script

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