Sucking tree view loop

[sridharavijay]

Hi...
The following code worked with 2.0 Framework, now with NPGSQL 2.0.11 and framework 4.0, this is erroring out despite Pooling=False for the connection. Do you get any clue?

The underlying logic is that add nodes to treeview; for each node added, immediately get subnodes and populate...

Private Sub LoadRequirements(ByVal parnode As TreeNode)
        Try
            Dim CMd1 As NpgsqlCommand
            CMd1 = New NpgsqlCommand
            Dim Q As String = "SELECT REQID,SUMMARY,ISCHANGE,DEPENDENTBRS FROM FACTUALDATA.REQUIREMENTS WHERE PROJECT='{0}' AND BRID='{1}' AND PARENT='{2}' ORDER BY REQID"
            If parnode Is Nothing Then
                CMd1.CommandText = String.Format(Q, Selected_project, lsvModules.SelectedItems(0).Text.Trim, lsvModules.SelectedItems(0).Text.Trim)
            Else
 
                CMd1.CommandText = String.Format(Q, Selected_project, lsvModules.SelectedItems(0).Text.Trim, parnode.Tag)
            End If
 
            CMd1.Connection = CON
            Dim R1 As NpgsqlDataReader = CMd1.ExecuteReader
            While R1.Read
                Dim nd As New TreeNode
                With nd
                    .Text = R1(0).ToString.Trim & " => " & R1(1).ToString.Trim
                    If R1(2).ToString.Trim = "Y" And String.IsNullOrEmpty(R1(3).ToString.Trim) Then
                        .ImageIndex = 12
                        .SelectedImageIndex = 12
                    ElseIf R1(2).ToString.Trim = "Y" And String.IsNullOrEmpty(R1(3).ToString.Trim) = False Then
                        .ImageIndex = 14
                        .SelectedImageIndex = 14
                    ElseIf R1(2).ToString.Trim = "N" And String.IsNullOrEmpty(R1(3).ToString.Trim) Then
                        .ImageIndex = 11
                        .SelectedImageIndex = 11
                    ElseIf R1(2).ToString.Trim = "N" And String.IsNullOrEmpty(R1(3).ToString.Trim) = False Then
                        .ImageIndex = 13
                        .SelectedImageIndex = 13
                    End If
                    .Tag = R1(0).ToString.Trim
                    If parnode Is Nothing Then
                        trvItems.Nodes.Add(nd)
                    Else
                        parnode.Nodes.Add(nd)
                    End If
                End With
 
                LoadRequirements(nd)
                nd.ExpandAll()
            End While
            R1.Close()
            R1.Dispose()
            'CM1.Dispose()
        Catch ex As Exception
            DE(ex)
        End Try
    End Sub