Private Sub показатьВсе_Click()
'DoCmd.ShowAllRecords
Me.RecordSource = "select * from Книги"
Me.OrderByOn = True 'порядок задан в окне свойств
Me.поиск = ""
End Sub

Private Sub поиск_GotFocus()
Me.поиск.SelStart = Len(Me.поиск.Text)
End Sub

Private Sub поиск_KeyUp(KeyCode As Integer, Shift As Integer)
DoCmd.ApplyFilter , "название like'" & Me.поиск.Text & "*'" 'или по любому другому полю
'Me.RecordSource = "select * from книги where название like'" & Me.поиск.Text & "*'"
'Me.поиск.SetFocus
End Sub