Dim strSQL as string
strSQL="SELECT Fcode, M1, M2, M3, M4, M5, M6, M7, M8, M9, M10, M11, M12 " _
" FROM Dohodi1"
" WHERE (kmb = N'" & TxtFind.Text & "') AND (Tf = 1)"

If command1.state=adstateopen then
command1.close
end if
With command1
.Open strSQL,.ActiveConnection,.OpenStatic

End With

set MSHFlexGrid1.datasurce=DataEnvironment1
MSHFlexGrid1.dataMemder="Command1"
MSHFlexGrid1.Refresh
command1.Close
Это непостредственно в коде VB но можно еще ввести параметр для Command1
примерно так в коде самого комманда


WHERE (kmb = N?) AND (Tf = 1)
если хочешь по подробней вторым способом то дай знать
PS
на счет второго способа я не очень уверен с MS SQL
лучше в коде VB записать

If DataEnvironment1.command1.state=adstateopen then
DataEnvironment1.command1.close
end if

поправка к предыдущему коду rscommand1

If DataEnvironment1.rscommand1.state=adstateopen then
DataEnvironment1.rscommand1.close
end if
====================
2 вариант
создай новы комманд и введи этот код
SELECT Fcode, M1, M2, M3, M4, M5, M6, M7, M8, M9, M10, M11, M12
FROM Dohodi1
WHERE (kmb = N?) AND (Tf = 1)
при попытке запустить скрипт выдаст сообщение бла-бла параметр
войди в свойства команда
в закладке Parametrs
там в списке с лева увидешь свой параметр под названием Param1
в Datatype = adVarChar
Size=255
Data Host...=String(VT_BSTR)
все остальное по умолчанию
дальше
на вкладу
Advanced
recordsetreturning поставь галочу и preparebiforex... тоже галочку

в коде пишешь так
DataEnvironment1.command1 Txtfind
и выполняется запрос по параметру Txtfind

поправка к предыдущему коду rscommand1

If DataEnvironment1.RScommand1.state=adstateopen then
DataEnvironment1.RScommand1.close
end if
Command для SQL

Ввел именно этот код с вопросительным знаком?

SELECT Fcode, M1, M2, M3, M4, M5, M6, M7, M8, M9, M10, M11, M12
FROM Dohodi1
WHERE (kmb = N?) AND (Tf = 1)

Убери N c запроса

WHERE (kmb = ?) AND (Tf = 1)
и заново установи параметры если нарушились настройки

не очень понял что хочешь сделать
нужно значения столбцов ввести в Combo?

После этого кода


DataEnvironment1.Command1 TxtFind

введи
With DataEnvironment1
.rsCommand1.MoveFirst
Do Until .rsCommand1.EOF
Combo1.Add rsCommand1.Filds("имя столбца 1").Value & " " _
& .rsCommand1.Filds("имя столбца 2").Value
.rsCommand1.MoveNext
Loop
End With

Тогда создай новый Command2 с SQL запросом и
With DataEnvironment1
.Command2
.rsCommand2.MoveFirst
Do Until .rsCommand2.EOF
Combo1.Add rsCommand2.Filds("имя столбца 1").Value & " " _
& .rsCommand2.Filds("имя столбца 2").Value
.rsCommand2.MoveNext
Loop
End With

TxtFind.Text=Combo1.Text
и на этом пока все
до завтра !!