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