devi creare una connessione e un recordset per leggere i dati dal database:
codice:
Dim adoConn As New ADODB.Connection
'imposti la connessione al database
adoConn.CoonectionString = ...

Dim rsNomi As New ADODB.Recordset
Dim strSQL As String
Dim tvNodo As Node

strSQL = "SELECT Nome FROM tbNomi ORDER BY Nome"

rsNomi.Open strSQL, adoConn, 1, 3
rsNomi.MoveFirst

Do Until rsNomi.EOF
  Set tvNodo = TreeView.Nodes.Add(Text:=rsNomi("Nome"))
  rsNomi.MoveNext
Loop
quando clicchi su un nodo fai questo:
codice:
Private Sub TreeView_NodeClick(ByVal Node As MSComctlLib.Node)
    TextBox.Text = Node.Text
End Sub
dovrebbe andare benone