Вот откуда (жирным выделил)
Применить попробовал - не работает

Private Sub SearchField_Change()

Dim cmd As ADODB.Command
Set cmd = New ADODB.Command
Dim rs As ADODB.Recordset

With cmd
.ActiveConnection = CurrentProject.Connection
.CommandText = "SELECT Clients.ClientID, Rekveziti.Name FROM dbo.Rekveziti INNER JOIN" _
& " dbo.Clients ON dbo.Rekveziti.ClientID = dbo.Clients.ClientID WHERE Name Like N'%" & Me.SearchField.Text & "%'"


Set rs = .Execute
If rs.RecordCount > 0 Then
Me.SearchField.RowSource = "SELECT Clients.ClientID, Rekveziti.Name FROM dbo.Rekveziti INNER JOIN" _
& " dbo.Clients ON dbo.Rekveziti.ClientID = dbo.Clients.ClientID WHERE Name Like N'%" & Me.SearchField.Text & "%'"
Else
MsgBox ("Не найдено")
Me.SearchField.RowSource = ""
End If

End With
End Sub