Dim oRs As Recordset
Dim oNode As Node
 
' Tabellenname als Elternknoten anlegen
Set oNode = TreeView1.Nodes.Add , , , "Tabellenname"
 
' DB-Tabelle auslesen und 1. Feld übertragen
Set oRs = oDB.OpenRecordset("SELECT Feld1 FROM Tabelle")
With oRs
  If .RecordCount > 0 Then
    Do
      TreeView1.Nodes.Add oNode, tvwChild, , CStr(.Fields(0).Value)
      .MoveNext
    Loop Until .Eof
  End If
End With

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de