Sub FillTw()
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset
Dim rs4 As New ADODB.Recordset
Dim strSql As String
Dim ND As Node
Dim cnMain As New ADODB.Connection
.
.
.

    tw.Nodes.Clear
    'Страны -------------------------------------------------
    strSql = "select * from Countries"
    rs1.Open strSql, cnMain, adOpenStatic, adLockReadOnly
    Do Until rs1.EOF
        Set ND = tw.Nodes.Add(, tvwNext, "Cn" & rs1!ID, rs1!Name)
        'Регионы -------------------------------------------------------------------------------
        strSql = "select * from Regions where CountryID=" & rs1!ID
        rs2.Open strSql, cnMain, adOpenStatic, adLockReadOnly
        Do Until rs2.EOF
            Set ND = tw.Nodes.Add("Cn" & rs1!ID, tvwChild, "Rn" & rs2!ID, rs2!Name)
            'Города------------------------------------------------------------------------------------------------------------------
            strSql = "select * from Cities where RegionID=" & rs2!ID
            rs3.Open strSql, cnMain, adOpenStatic, adLockReadOnly
            Do Until rs3.EOF
                Set ND = tw.Nodes.Add("Rn" & rs2!ID, tvwChild, "Ct" & rs3!ID, rs3!Name)
                'Улицы -----------------------------------------------------------------------------------------------------------------
                strSql = "select * from Streets where CityID=" & rs3!ID 
                rs4.Open strSql, cnMain, adOpenStatic, adLockReadOnly
                Do Until rs4.EOF
                    Set ND = tw.Nodes.Add("Ct" & rs3!ID, tvwChild, "St" & rs4!ID, rs4!Name)
                    rs4.MoveNext
                Loop
                rs4.Close
                rs3.MoveNext
            Loop
            rs3.Close
            rs2.MoveNext
        Loop
        rs2.Close
        rs1.MoveNext
    Loop
    rs1.Close
End Sub