Dim nodDamage As Node
Dim rstParent As New ADODB.Recordset
Dim rstChild As New ADODB.Recordset
Dim QueryParent As String
Dim QueryChild As String
Dim cnt As Integer
cnt =  1 
QueryParent = "Select tblDamageGroup.ID as GroupId, tblDamageGroup.GroupName FROM tblDamageGroup"

rstParent.Open QueryParent, denSql.cnn, adOpenStatic, adLockOptimistic, adCmdText
For x =  1  To rstParent.RecordCount
   Set nodDamage = DamageTree.Nodes.Add(, , GetLetter(rstParent!GroupId), rstParent!GroupName)
   QueryChild = "Select tblDamage.id, tblDamage.Damage FROM tblDamage WHERE DamageGroupId = " & rstParent!GroupId
   rstChild.Open QueryChild, denSql.cnn, adOpenStatic, adLockOptimistic, adCmdText
   For Y =  1  To rstChild.RecordCount
      Set nodDamage = DamageTree.Nodes.Add(GetLetter(rstParent!GroupId), tvwChild, "Dmg" & CStr(rstChild!ID), rstChild!Damage)
      If rstParent!GroupId =  6  Then
         Set nodDamage = DamageTree.Nodes.Add(("Dmg" & CStr(rstChild!ID)), tvwChild, "Apr" + CStr(cnt), "Apraksts")
         cnt = cnt +  1 
      End If
      rstChild.MoveNext
   Next Y
   If rstChild.State =  1  Then
      rstChild.Close
   End If
   rstParent.MoveNext
Next x
If rstParent.State =  1  Then
   rstParent.Close
End If

      If rstParent!GroupId =  6  Then
         Set nodDamage = DamageTree.Nodes.Add(("Dmg" & CStr(rstChild!ID)), tvwChild, "Apr" + CStr(cnt), "Apraksts")
         cnt = cnt +  1 
      End If