Выделение записи в tv

[bezx]

Добрый день,
делаю базу в форме treeview, и хочу реализовать поиск,так как много элементов.
Написал запрос на поиск в комбобоксе

Private Sub ПолеСоСписком5_Change()
Dim txt$
If clck Then txt = "" Else txt = Me!ПолеСоСписком5.Text
Me!ПолеСоСписком5.RowSource = "Select tbl_name.DATA from tbl_name where tbl_name.DATA like '*" & txt & "*' order by tbl_name.DATA"
If clck Then clck = False Else Me!ПолеСоСписком5.Dropdown
End Sub

и теперь хочу сделать так,чтобы найденная запись открывалась в tv.
Заранее спасибо!

[Teslenko_EA]

Здравствуйте bezx.
Не совсем понятна формулировка "..делаю базу в форме treeview.."
База данных это хранилище, treeview это контрол()
Если Вы подразумевали форму на которой расположен treeview, то какое отношение
имеет ПолеСоСписком5 не понятно.
"..хочу ..чтобы найденная запись открывалась в tv.." - treeview это контрол отображающий
древовидную структуру хранимых данных. Если "дерево" построено то найти в нем текст можно
подобной конструкцией:

Dim o
For Each o In TreeView1.Nodes
    If o.Text = s Then ' s - искомый текст
        o.Selected = True
    End If
Next

но при этом никакая запись открываться не будет.

Евгений.

[bezx]

Простите за неточность)
Есть иерархическая бд сделанная в форме treeview. Есть комбобокс с поиском. Хочу реализовать следующее - при нахождении нужного пункта в ComboBox(полесосписком5) в TreeView должен выделится аналогичный пункт(одинаковые имена). Т.е раскрылось дерево на нужной записи.
Заранее спасибо!

[Teslenko_EA]

bezx "..раскрылось дерево.." - выполняется добавлением в код одной строки.

Dim o
For Each o In TreeView1.Nodes 
    If o.Text = s Then ' s - искомый  текст
        o.EnsureVisible = True ' отображение узла
        o.Selected = True ' выделение узла
    End If
Next

Евгений.