Dim i As Integer '循环查找"id='new'" & i 如果有就 i+1,循环 加节点
    i = 1            '找个最小的数  加
    While True
        resorg.MoveFirst
        resorg.Find "id='new" & i & "'"
        If resorg.EOF = True Or resorg.BOF = True Then
            Set nod1 = Form1.TreeView1.Nodes.add("root", tvwChild, "r" & "new" & i, "新建文件夹(" & i & ")", 2)
            resorg.AddNew                        '
            resorg(0).Value = "new" & i
            resorg(1).Value = "新建文件夹(" & i & ")"
            resorg.Update
            Exit Sub
        Else
            i = i + 1
        End If
    Wend
请高手看看,resorg(1).Value = "新建文件夹(" & i & ")" 中,这里为什么 i   要加&号,
它不是一个整数了吗?
还有我把    (" & i & ")   变成   (' & i &' )     可以吗

字符串连接..