Dim sSQL As String

sSQL = "SELECT Договоры_СТАРАЯ.НомерДоговора, Договоры_СТАРАЯ.ДатаЗаполнения, Договоры_СТАРАЯ.ФамилияЛат, Договоры_СТАРАЯ.ИмяЛат, Договоры_СТАРАЯ.Кратность, Договоры_СТАРАЯ.Заказчик, FROM Договоры_СТАРАЯ" & _
WHERE "(((Договоры_СТАРАЯ.ФамилияЛат) Like [Forms]![вкладки2]![find1] & "*"))"


Select Case grpSort
Case 1
sSQL = sSQL & " ORDER BY НомерДоговора"
Case 2
sSQL = sSQL & " ORDER BY ДатаЗаполнения"
Case 3
sSQL = sSQL & " ORDER BY ФамилияЛат"

и т.д.
но если я в sSql строку добовляю & _
WHERE "(((Договоры_СТАРАЯ.ФамилияЛат) Like [Forms]![вкладки2]![find1] & "*"))"
то не работает :
ругается на sSQL
Как правильно сделать?

Ура заработало!
СПАСИБО!!!!