Private Sub Command1_Click()
 
  Dim rs As Recordset
  Dim itemm As ListItem
  Dim ndRoot As node
 
  Set db = OpenDatabase("C:\db1.mdb")
 
  'Alle Root Knoten rausfiltern
  Set rs = db.OpenRecordset("SELECT * FROM test WHERE parent IS NULL;")
 
  rs.MoveFirst
  Do While rs.EOF = False
 
    Set ndRoot = TreeView1.Nodes.Add(, , "nd" & rs!id, "Ordner " & rs!ordner)
 
    'Unterordner finden
    FillTree ndRoot
 
    'Nächster Root Knoten
    rs.MoveNext
  Loop
 
End Sub
 
 
Private Function FillTree(ByVal ndParent As node)
 
  On Error GoTo ErrHandle
 
  Dim ndChild As node
  Dim rs As Recordset
 
  'Alle Childs des übergebenen Knoten filtern
  Set rs = db.OpenRecordset("SELECT * FROM test WHERE parent = " & _
    Mid(ndParent.Key, 3) & ";")
 
  rs.MoveFirst
 
  Do While rs.EOF = False
 
    Set ndChild = TreeView1.Nodes.Add(ndParent, tvwChild, _
      "nd" & rs!id, "Ordner " & rs!ordner)
 
    'Hat dieser Ordner weitere Unterordener?
    Call FillTree(ndChild)
 
    'Zum nächsten Ordner
    rs.MoveNext
  Loop
 
  Exit Function
 
ErrHandle:
 
  If Err.Number = 3021 Then
    Exit Function
  Else
    Err.Raise Err.Number, Err.Source, Err.Description, _
      Err.HelpFile, Err.HelpContext
  End If
 
End Function

___________________________________________________
Wissend ist, wer wei?, wo er findet, was er noch nicht wei?.