Visual Basic - Treeview

Hola

Quisiera saber si alguien tiene un ejemplo de como puedo llenar un control Treeview con nombres de tablas y sus campos con conexión Ado. Todo lo que pude encontrar esta relacionado con Dao.

Gracias

Set rstabla = New ADODB.Recordset
rstabla.Open "Select * from tabla order by orden", BDatos, adOpenKeyset, adLockOptimistic

Private Sub Cargar_lista()

i = 1
rstabla.MoveFirst

While Not rstabla.EOF
a$ = rstabla.Fields!texto
If Mid(rstabla.Fields!texto, 1, 1) = "R" Then
Set nodX = TreeView1.Nodes.Add(, , , a$) ' Root
Else
Set nodX = TreeView1.Nodes.Add(Val(rstabla.Fields!Item), tvwChild, , a$)
End If
rstabla.MoveNext
i = i + 1
Wend

rstabla.MoveFirst
TreeView1.Refresh
Espero que te sirva. Salu2.

Gracias Amalia!