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
и на этом пока все
до завтра !!

Private Sub CmdCombo_Change()
TxtFind.Text = Combo1.Text
End Sub

Если целочисленное значение
то Val(Combo1.Text) пример = 125233 "Привет" возвращает 125233 а если так 1252,33 "Привет" возвращает 125233 без дробной части если нет в числах поиска, дробной часи то сойдет Val

TxtFind.Text =Val(Combo1.Text)

попробуй чере переменную работать и с событием Клик

если пользователь не должен менять текст в комбо то используй Клик
и измени значение Комбо Style=2-Dro........ для полной уверенности введи и туда и туда никто от этого не пострадает

Private Sub Combo1_Change()
Dim lngNumber as Long
lngNumber =Val(Combo1.Text)
TxtFind.Text = lngNumber
End Sub

Private Sub Combo1_Click()
Dim lngNumber as Long
lngNumber =Val(Combo1.Text)
TxtFind.Text = lngNumber
End Sub

Измени SQL запрос в условии


WHERE (kmb = N?) And (Tf = ?) Or (TT=?)=TextFind3 параметр
если тот=тоту и то=тому или равно чемуто то делай что то
где чему то не обязательный парамтр

Есть два мне известных варианта решения твоей проблемы
1 не рабоать с параметрами а вволить запрос в VB код как я раньше советовал и поставить условие в VB

если Сombo1.text="" тогда работает
WHERE (kmb = N?) And (Tf = ?)
иначе
WHERE (kmb = N?) And (Tf = ?) And (TT=?)

2 вариант создать еще один коммнад но только с двумя параметрами
и в VB поставть условие такое же

если Сombo1.text="" тогда работает
.Command2 txtFind,txtFind2
иначе
.Command1 txtFind,txtFind2,txtFind3

Да работал и работаю

Введи Dr в проект

Dr работеат почти так же как MsHFg..
Dr имеет определенные секции для ввода текстовых полей с заданными datafield-ами каждое к примеру M1 это твоя колонка которая будет выводится как строки
сначала надо связать датар с дата сурсом кторый ты создаешь, дата сурс это твой De.. а Datamember твой Commnd1
после можно воспользоаваться коммандой Retrieve structur (контекстное меню на dr)
повле этой коммнады появиться секция Ciomman1_Datile
в этой секциии вводится rtpTextBox столько сколько у тебя есть колонок в таблице данных или столь сколько нужно показать пользователю
в свойстве (rtpTextBox) datamember ставишь Command1 а datafield ставишь M1
строки колонки M1 будет выводится в этом rtpTextBox-е
запусти Dr и посмотри результат
PS
Создай новый Command с запросом SQL =select * from твоятаблица
пока попробуй это потом пойдем дальше

что то что Dr с твоими коммандами(с параметрами) или просто параметры
или просто комманд без параметров с DR

есть но почти не использую
не всегда в сети

у твоего запроса комманд есть recordset
rsCommand1
после выборки данных через параметры
твой комманд получает выборку тех данных кторые введены параметрами

что бы вывести данные выбранных записей в любое мест Excel или даже в ворд
можно просто в List нужно проциклить Recorset

DataEnvironment1.rsCommand1 парам1,парам2

with DataEnvironment1.rsCommand1
.MoveFirst
Do until .EOF
___________________________________
list1.Additem .Fields(0).Value

' в этой части кода можно выпонить сопоставление
эксел ячеек с (.Fields(0).Value ) с значением колонки


_________________________________
.MoveNext
loop
end with

или цикл по счетчику болле удобен если выборка ячеек в экс работает с счетчиком
with DataEnvironment1.rsCommand1
.MoveFirst
For i=0 to .RecordCount
___________________________________
list1.Additem .Fields(0).Value

' в этой чатси кода можно выпонить сопоставление
эксел ячеек с (.Fields(0).Value ) с значением колонки
Ячейка(i,6)=.Fields(0).Value
Ячейка(i,7)=.Fields(1).Value
Ячейка(i,8)=.Fields(2).Value
_________________________________
.MoveNext
next i
end with

Вот пример ввода сразу всех занчений в таблицу екселя

On Error Resume Next
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet


Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets.Add


xlApp.Visible = True

DataEnvironment1.Command1
With DataEnvironment1.rsCommand1
.MoveFirst

For i = 0 To .RecordCount
For j = 0 To .Fields.Count
' циклится не только строки но и колонки и сразу вводится
'значение в массив ячеек



xlSheet.Cells(i, j).Value = .Fields(j).Value


Next j
.MoveNext
Next i
End With
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing