( RESOLVED ) VBNET2008 using DataReader to Fill TreeView control at Runtime

Hullo Friends,
Finally I have resolved the problem of VBNET2008 with TreeView in my earlier posting here asking for help.
What I did was I was using debugging event on every coding line to evaliate it's event and finally identified the problem cause my TreeView Nodes index which I use differenet variables from Parent Nodes, Child Nodes and Grandchild Nodes.
Here are the working coding and I wish to share with other newbies who may be having similar problem and without receiving and helps at all. 

Private Sub FFillTreeViewNode()

 

        Dim intOrderID As Integer = 0

        Dim dteOrderDate As String = String.Empty

        Dim intCNode As Integer = 0

        Dim intGCNode As Integer = 0   

        Dim bolJustNewParent As Boolean = True

 

        Dim strsql As String

      strsql = "Select OrderID, Convert(varchar(10), OrderDate, 103) as [OrderDate], ProductID "

        strsql += " From TblSalesInvoices "

        strsql += " Where (CustomerID = 'FRAB' )"

        strsql += " Order By OrderID, OrderDate "

 

        sqlconn = New SqlConnection(connstr)

        sqlcmd = New SqlCommand(strsql, sqlconn)

        sqlcmd.Connection.Open()

        DR = sqlcmd.ExecuteReader

 

        While (DR.Read())

 

            If (DR.Item("OrderID") <> intOrderID) Then     '

 

                If bolJustNewParent = True Then

                    bolJustNewParent = False              

                Else

                    intCNode += 1

                    intGCNode = 0

                End If

 

                '--- Parent ---

                Me.TreeViewTest.Nodes.Add(DR.Item("OrderID").ToString)

                intOrderID = DR.Item("OrderID")

 

                '--- Child ----

                Me.TreeViewTest.Nodes(intCNode).Nodes.Add(DR.Item("OrderDate").ToString)

                dteOrderDate = DR.Item("OrderDate").ToString

            End If

 

            ' --- Child ---

            If (DR.Item("OrderDate").ToString <> dteOrderDate) Then

 

                Me.TreeViewTest.Nodes(intCNode).Nodes.Add(DR.Item("OrderDate").ToString)

                dteOrderDate = DR.Item("OrderDate").ToString

                intGCNode += 1

 

                If intOrderID <> DR.Item("OrderID") Then

                    intCNode += 1

                End If

 

            End If

            '---grandchild

            Me.TreeViewTest.Nodes(intCNode).Nodes(intGCNode).Nodes.Add(DR.Item("ProductID"))

        End While

 

        sqlconn.Close()

        DR.Close()

        sqlcmd.Dispose()

    End Sub

 

 

  Private Sub TreeViewTest_AfterSelect(ByVal sender As System.Object,

            ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeViewTest.AfterSelect

        Me.txtTVItem.Text = Me.TreeViewTest.SelectedNode.FullPath.ToString

   End Sub
Hi, Newbies friends, Hope my working coding will help you.