Public Function GetDB(NodeRef As Node, Optional ByRef pMasterID As String, _
  Optional ByRef pMasterTable As String)
Dim nodeX As Node
Dim oRs As DAO.Recordset
 
    With DBKit.TreeView1
        Set nodeX = .Nodes.Add(NodeRef.Key, tvwChild, "R1U1", "Erster" & _
          "Untereintrag zum ersten Root-Eintrag", 2)
 
        Set oRs = DB.OpenRecordset("SELECT attribute FROM Attribute," & _
          "Command_Attribute_Join on" & _
          "Command_Attribute_Join.attribute_id=Attribute.attribute_id WHERE" & _
          "command=body")
 
        If (oRs.RecordCount > 0) Then
        While Not oRs.EOF
            Set nodeX = DBKit.TreeView1.Nodes.Add(NodeRef.Key, tvwChild, , CStr( _
              oRs.Fields("name").Value), 2)
            oRs.MoveNext
        Wend
    End If
 
    End With
End Function