[VB.NET] Inserimento nodi in TreeView e individuazione nodi già inseriti

[Bertoz]

Ciao,In questa treeview ci sono dei nodi che mi vengono inseriti quante sono le righe trovate tramite una query,come posso fare se il nodo ha lo stesso nome a farlglielo inserire 1 sola volta e basta?

Grazie

Qui vi posto uno screenshot per farvi capire.



Questo invece è il codice:

Dim RicercaAll As New System.Data.SqlServerCe.SqlCeCommand("SELECT DISTINCT ORDATA,ORCODCLI,ORRAGSOC,ORNUMORD FROM Ordini ORDER BY ORCODCLI ASC", ConnSqlCe)

        ConnSqlCe.Open()

        Dim rs2 As Data.SqlServerCe.SqlCeResultSet = RicercaAll.ExecuteResultSet(Data.SqlServerCe.ResultSetOptions.Scrollable)

        RicercaAll.ExecuteReader()

        Do While rs2.Read
            If rs2.IsDBNull(0) = False Then
                ORDATA = CStr(rs2.GetValue(0))
                If InStr(ORDATA, "'", CompareMethod.Text) Then
                    ORDATA = ORDATA.Replace("'", "''")
                End If
            Else
                ORDATA = "   "
            End If

            If rs2.IsDBNull(1) = False Then
                ORCODCLI = CStr(rs2.GetValue(1))
                If InStr(ORCODCLI, "'", CompareMethod.Text) Then
                    ORCODCLI = ORCODCLI.Replace("'", "''")
                End If
            Else
                ORCODCLI = "   "
            End If

            If rs2.IsDBNull(2) = False Then
                ORRAGSOC = CStr(rs2.GetValue(2))
                If InStr(ORRAGSOC, "'", CompareMethod.Text) Then
                    ORRAGSOC = ORRAGSOC.Replace("'", "''")
                End If
            Else
                ORRAGSOC = "   "
            End If

            If rs2.IsDBNull(3) = False Then
                ORNUMORD = CStr(rs2.GetValue(3))
                If InStr(ORNUMORD, "'", CompareMethod.Text) Then
                    ORNUMORD = ORNUMORD.Replace("'", "''")
                End If
            Else
                ORNUMORD = "   "
            End If

            Dim Childname1, Childname2, Childname3 As String
            Childname1 = ORCODCLI & " " & "(" & ORRAGSOC & ")"
            childNode = rootNode.Nodes.Add(Childname1)

            Childname2 = ORDATA
            childNode2 = childNode.Nodes.Add(Childname2)
            childNode2.Tag = ORCODCLI

            Childname3 = ORNUMORD & " " & "(" & ORCODCLI & ")"
            childnode3 = childNode2.Nodes.Add(Childname3)
            childnode3.Tag = ORCODCLI

        Loop

        ConnSqlCe.Close()