Private Const c_KeyPrefix As String = "KEY_"
 
Private Const c_ID As String = "ID"
Private Const c_PID As String = "Parent_ID"
Private Const c_TITEL As String = "Titel"
 
Dim m_rs As ADODB.Recordset
 
Private Sub generateTree()
 
  Dim boDone    As Boolean
  Dim nd        As Node
 
  boDone = True
 
  Do
 
    m_rs.MoveFirst
 
    Do While Not m_rs.EOF
 
      boDone = True
      With TreeView1.Nodes
 
        On Error Resume Next
        If m_rs(c_PID) = 0 Then
 
          If Not NodeExists(m_rs(c_ID)) Then
 
            Set nd = Nothing
            Set nd = .Add(, , c_KeyPrefix & CStr(m_rs(c_ID)), m_rs(c_TITEL))
            Debug.Assert Err = 0
            nd.Expanded = True
 
            boDone = False
 
          End If
 
        Else
 
          If Not NodeExists(m_rs(c_ID)) Then
 
            If NodeExists(m_rs(c_PID)) Then
 
              Set nd = Nothing
              Set nd = .Add(c_KeyPrefix & m_rs(c_PID), tvwChild, c_KeyPrefix & _
                CStr(m_rs(c_ID)), m_rs(c_TITEL))
              Debug.Assert Err = 0
              nd.Expanded = True
              boDone = False
 
            End If
 
          End If
 
        End If
 
      End With
 
      m_rs.MoveNext
 
    Loop
 
  Loop Until boDone = True
 
End Sub
 
Private Function NodeExists(ByVal vID As Long) As Boolean
 
  On Error GoTo NotExist
 
  NodeExists = True
  If Not TreeView1.Nodes(c_KeyPrefix & CStr(vID)) Is Nothing Then
    'dummy abfrage
  End If
 
  Exit Function
NotExist:
  NodeExists = False
 
End Function

Gruß
Dirk

--
?Get it right the first time