Visual Basic

Dim SQL As String = "Select * from troubleshooting order by node_path asc"<br />
        Dim StrNodePath As String<br />
        Dim nNode As TreeNode<br />
        Dim BolNew As Boolean = True<br />
        Dim X As Integer<br />
        Dim StrNode As String<br />
<br />
<br />
        RSProbleme = ReturnForm.StrConn.Execute(SQL)<br />
<br />
        Do Until RSProbleme.EOF = True<br />
<br />
            StrNodePath = RSProbleme("node_path").Value<br />
            aNodePath = Split(StrNodePath, "\")<br />
<br />
            For X = 0 To UBound(aNodePath)<br />
                BolNew = True<br />
                For Each nNode In TrVProbleme.Nodes<br />
<br />
                    If nNode.Text = aNodePath(X) Then<br />
                        BolNew = False<br />
                    End If<br />
<br />
                Next<br />
                If BolNew = True Then<br />
                    nNode.Nodes.Add(aNodePath(X))   <-- This is the line that gives me trouble<br />
                End If<br />
            Next<br />
<br />
            RSProbleme.MoveNext()<br />
        Loop

Dim rsRequest As New ADODB.Recordset<br />
rsRequest.Open "Select Form_No, User_ID, Status, Request_Date from tbl_ReExport_Info Where Form_No = '" & txtFormNo.Text & "' And User_ID = '" & txtUserID.Text & "'", cnnADO, adOpenDynamic, adLockOptimistic<br />
With rsRequest<br />
    If .EOF = True Then .AddNew<br />
    !Form_No = txtFormNo.Text<br />
    !User_ID = txtUserID.Text<br />
    !Status = 0<br />
    !Request_Date = Now<br />
    .Update<br />
End With<br />