Object doesn't support this property or method.

Private Sub FillTvw()

    Dim conn As ADODB.Connection: Set conn = New ADODB.Connection
    Dim rs, rsDepartments, rsSeries As ADODB.Recordset
    Set rs = New ADODB.Recordset
    Dim oTvw As Object: Set oTvw = Me.TreeView1
    Dim oNode1, oNode2, onode3 As Node

    Dim sSQL As String

    sSQL = _
        "SHAPE (SHAPE {SELECT sDepartmentName, iSeriesID, sSeriesName, " & _
        "cast(dQuantity as int) dQuantity FROM tempDb..##TPRODBLINDS} AS rsSeries " & _
        "COMPUTE rsSeries, ANY(rsSeries.iSeriesID) AS iSeriesID, " & _
        "Sum(rsSeries.[dQuantity]) TotQuantitySeries BY sDepartmentName " & _
        "AS sDepartmentName, sSeriesName AS sSeriesName) AS rsDepartments " & _
        "COMPUTE rsDepartments, Sum(rsDepartments.rsSeries.[dQuantity]) AS " & _
        "TotQuantityDept BY sDepartmentName"
        
    conn.ConnectionString = strConn()
    conn.Open
    conn.Execute ("exec sp_SelectBlindsForProductionIntoTPRODBLNDS")
    rs.Open sSQL, conn
    oTvw.Nodes.Clear
    Set oNode1 = oTvw.Nodes.Add(Text:="Pagal filialus")
    rsDepartments = rs.Fields("rsDepartments").Value
    Do While Not rsDepartments.EOF
        Set oNode2 = oTvw.Nodes.Add( _
            relative:=oNode1.Index, _
            relationship:=tvwChild, _
            Text:=rsDepartments![sDepartmentName])
'..............
End Sub