Mensajes

Es una buena salida.. 

Bueno claro que la cantidad de tiempo que demore en llenarse el control sera bastante, bueno todo eso depende del equipo en el cual se este trabajando(me refiero al hardware), aun asi, buscare una alternativa y vere si se puede agilizar ese proceso, saludos. Si encuentras una respuesta a tu problema posteala.

Bueno no sabria decirte porque nunca he hecho algo parecido, pero podria sugerir que intentes un par de cosas.

Lo primero seria que ese formulario cuando no lo necesites no lo cierres, sino que lo ocultes, y cuando lo quieras usar nuevamente lo haces visible, con esto el treeview ya no tendria que llenarse cada vez que cargues el formulario.

Ocultar formulario

Form.hide()

Mostrar formulario

Form.show()

Recomendaria que uses un Data.DataTable ya que el manejo de datos entre el Dataset y datatable no es exactamente igual. Hazlo, y si te funciona lo posteas, de esa forma te podria explicar como van algunas lineas del codigo.

EDITO: Ademas que el usar el table ahorrara algo de codigo... 

SUpongo que una query seria suficiente verdad?

"Select * from Tabla where fecha='" & textbox1.text & "'"

En SQL

Create database Ejemplo
go
use ejemplo
go

create table rutina
(codigo char(3) primary key,
descripcion varchar(7),
padre char(3))
go

insert into rutina values ('001','Item 1','')
insert into rutina values ('002','Item 2','001')
insert into rutina values ('003','Item 3','001')
insert into rutina values ('004','Item 4','001')
insert into rutina values ('005','Item 5','002')
insert into rutina values ('006,'Item 6','002')
insert into rutina values ('007','Item 7','005')
insert into rutina values ('008','Item 8','005')
insert into rutina values ('009','Item 9','005')
insert into rutina values ('010','Item 10','006')

En .NET

Crea un nuevo proyecto, 1 formulario(Form1) y un control treeview(treeview1)

Imports System.Data.SqlClient
Public Class Form1
    Dim con As New SqlConnection("integrated security=sspi;data source=(local);initial catalog=ejemplo")
    Dim da As SqlDataAdapter
    Dim dtb As DataTable
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        da = New SqlDataAdapter("select * from rutina", con)
        dtb = New DataTable
        da.Fill(dtb)
        Dim a As Integer
        For a = 0 To dtb.Rows.Count - 1
            If dtb.Rows(a)("padre").ToString = "   " Then
                TreeView1.Nodes.Add(dtb.Rows(a)("descripcion").ToString)
                añade(dtb.Rows(a)("codigo").ToString, TreeView1.Nodes(TreeView1.Nodes.Count - 1))
            End If
        Next
    End Sub
    'Añade, funcion recursiva
    Sub añade(ByVal cod As String, ByVal node As TreeNode)
        da = New SqlDataAdapter("select * from rutina", con)
        dtb = New DataTable
        da.Fill(dtb)
        'variable que recorre las filas de la tabla
        Dim a As Integer
        For a = 0 To dtb.Rows.Count - 1
            If dtb.Rows(a)("padre").ToString = cod Then
                node.Nodes.Add(dtb.Rows(a)("descripcion").ToString)
                añade(dtb.Rows(a)("codigo").ToString, node.Nodes(node.Nodes.Count - 1))
            End If
        Next
    End Sub
End Class

Espero sea util, mas demore poniendole color .... 
Necesito explicar ¿?   

Recursividad ¿?
Sabras que es eso, supongo.

NO entiendo que quieres decir...quieres llenar los datos de una table en un treeview?. En el caso que asi sea, que dato es el que deseas mostrar ( CODIGO - DESCRIPCION - PADRE ). En el caso que quieras mostrar los datos de esa tabla el control solo tendria un nivel:

dim con as new sqlconnection(".....")
dim da as sqldataadapter
dim dtb as data.datatable

sub Form_Load(byval.........)
da= new sqldataadapter("select * from tabla",con)
dtb = new data.datatable
da.fill(dtb)
dim a as integer
for a=0 to dtb.rows.count-1
treeview1.nodes.add dtb.rows(a)("COLUMNA").tostring
end for
end sub

Si los datos del combo estan conectados a una Bd has una consulta con un like en el evento text_change de la caja de texto, y filtra el resultado al combo.

TreeView1.Nodes.Add("Raiz 1")
TreeView1.Nodes(0).Nodes.Add("Primero R1")
TreeView1.Nodes(0).Nodes.Add("Segundo R1")
TreeView1.Nodes(0).Nodes(0).Nodes.Add("Sub Primero 1")
TreeView1.Nodes(0).Nodes(0).Nodes.Add("Sub Primero 2")
TreeView1.Nodes(0).Nodes(1).Nodes.Add("Sub segundo 1")
TreeView1.Nodes(0).Nodes(1).Nodes.Add("Sub segundo 2")