Почему не работает?
При LostFocus на текстовом поле вызывается Cmd():

Public Sub Cmd()
Dim tel As String

tel = Text1.Text
' записываем в переменную содержание текстового поля

Data2.RecordSource = "SELECT [textobj], [Texttel] FROM [Tableobj] WHERE [Texttel] like 'tel'"
Data2.Refresh

End Sub

Не хочет работать Data2 остается пустой, если в условии поиска жестко вписать, допустим "123", то работает нормально.

Эта зараза оказывается ищет текст "tel"? не подумал сразу!

Как сделать так чтобы находилась переменная.
(Переменная не является окончательным критерием поиска '*tel*')

Извиняюсь за беспокойство!

Data2.RecordSource = "SELECT [textobj], [Texttel] FROM [Tableobj] WHERE [Texttel] LIKE '*" & Tel & "*'"

Будете у нас на ... Заходите! :-)))