Private Sub Подрядчик_KeyPress(Cancel As Integer)
Dim tblT As Variant, dbT As Variant
Dim fldKod As Variant, fldName As Variant
Dim strPoisk As String
Dim strRS As String
Dim ctlSpisok As Variant
Set dbT = CurrentDb()
Set tblT = dbT.TableDefs("Подрядчики")
Set fldKod = tblT.Fields("КодП")
Set fldName = tblT.Fields("Наименование подрядчика")
Set ctlSpisok = Me![Подрядчик]
If Not IsNull(strPoisk) Then

strRS = "SELECT " & tblT.Name & "." & fldKod.Name & ", " & tblT.Name & ".[" & fldName.Name & "] " _
& "FROM " & tblT.Name & " " _
& "WHERE ((( " & tblT.Name & ".[" & fldName.Name & "]) Like '*" & Me![Подрядчик].Text & "*'));"

ctlSpisok.RowSource = strRS
SendKeys "%{DOWN}", True
End If

End Sub
Это поиск для поля со списком у меня работает

Без Like возможно, но тогда отбор будет производиться точно по введенной записи, а в данной конструкции отбор производится по совпадению в любой части слова

Так как у меня поиск по полю с наименование предприятия мне конструкция and была не нужна
Но твой пример я к себе скинула и попробую