Treeview Com Consulta

[melissa_ff]

alguém sabe como inserir consultas em treeview usando o openschema?

EStou fazendo assim com tabela, mas preciso das consultas do banco de dados

Private Sub Form_Load()

Set cnn = New ADODB.Connection

arqdb = App.Path & "\contas a pagar.mdb"

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & arqdb

cnn.Open

ListaTabelas

End Sub

Private Sub ListaTabelas()

Dim rs As ADODB.Recordset

Dim table_node As Node

tree1.Nodes.Clear

Set rs = cnn.OpenSchema(adSchemaTables, Array(Empty, Empty, Empty, "TABLE"))

While rs.EOF

Set table_node = tree1.Nodes.Add(, , , TABLE_NAME)

table_node.Tag = "TABELA"

Loop

End Sub

[melissa_ff]

Ajudem-me.