Dim query As String = " WITH RECURSIVE " & _
" CategoryStructured(id, name, parent_id, level) As (VALUES(2,'Baked Goods',2,0) UNION ALL " & _
" Select Ingredient_Categories.id, Ingredient_Categories.name, Ingredient_Categories.parent_id, CategoryStructured.level+1 " & _
" FROM Ingredient_Categories JOIN CategoryStructured ON Ingredient_Categories.parent_id = CategoryStructured.id " & _
" ORDER BY 2 DESC) " & _
" Select substr('..........',1,level*3) || name from CategoryStructured;"
Dim rs As ResultSet = Company.DB.ExecQuery(query)
Do While rs.NextRow
Log("Child: " & rs.GetString("substr('..........',1,level*3) || name"))
Loop