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

Private Sub _AfterUpdate()

Dim rs As Object
Set rs = Me.Recordset.Clone
If (Me.SearchField? <> "") And (Not IsNull(Me.SearchField)) Then
rs.Find "[ClientID] = " & Me.SearchField
Me.Bookmark = rs.Bookmark
End If

End Sub