Private Sub cmbPoisk_Click()
me.RecordSource="select * from tbl where полеПоКоторомуИщите=" & me.poisk 'если поле число
'me.RecordSourse="select * from tbl where полеПоКоторомуИщите='" & me.poisk & "'" 'поле текст
End Sub

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