Ошибка синтаксиса...

[Summer.05]

Всего-то одна строка. Прошу помощи, уже, кажется, все перепробовал!

Замысел:
При нажатии кнопки 4 в DataGrid выводятся результаты поиска из базы данных DB по сочетанию слов из колонки "Ranc" - слово "доктор" и из колонки "Title" - KeyWord

Нужно, что бы в DataGrid были выдены все строки докторов наук (Ranc) и среди них осуществился поиск в темах диссертаций (Title) по введенному KeyWord


Private Sub Command4_Click()
Dim KeyWord As String

KeyWord = InputBox("Ведите буквы ключевого слова" + vbCrLf + _
"(можно не полностью)", "Поиск", "")

If KeyWord <> "" Then

With Adodc1
.RecordSource = "SELECT (DB.Ranc From DB where DB.Ranc Like '*доктор*') AND (DB.Title From DB WHERE DB.Title like " + Chr(39) + "%" + KeyWord + "%" + Chr(39)
.Refresh
End With
End If
End Sub


Пишет ошибку:

Ошибка синтаксиса (пропущен оператор) в выражении запроса.

Прошу помочь!
Спасибо!

[tyomitch]

Вместо этого чуда:

Код: Выделить всё

SELECT (DB.Ranc From DB where DB.Ranc Like '*доктор*') AND (DB.Title From DB WHERE DB.Title like " + Chr(39) + "%" + KeyWord + "%" + Chr(39)

Напиши:

Код: Выделить всё

SELECT DB.Ranc, DB.Title From DB where (DB.Ranc Like '%доктор%') AND (DB.Title like '%" + KeyWord + "%')"

[Summer.05]

tyomitch

Спасибо большое, все заработало!
Признателен!