平台树控件的编辑分类不成功

代码：

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler
    Dim strWhere As String
    Dim strSQL As String
    Dim rst As DAO.Recordset
    Dim lngNum As Long
    Dim objNode As MSComctlLib.Node
    Dim strNewNum As String


    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub


    If Not IsNull(Me.txt分类编号) And Me.cbo上级分类编号 Like Me.txt分类编号 & "*" Then
        MsgBoxEx "上级分类不能是当前分类或当前分类下的子分类。", vbInformation
        Exit Sub
    End If


    strWhere = " 分类编号 Like '" & Me.cbo上级分类编号 & "####'" _
             & " AND 分类编号<>'" & Me.txt分类编号 & "'" _
             & " AND 分类名称=" & sqltext(Me.txt分类名称)
    If DCount("*", "物料分类表", strWhere) > 0 Then
        MsgBoxEx "该分类已存在，不能重复添加。", vbInformation
        Exit Sub
    End If


    '添加新分类时，或者修改分类但上级分类被改变时，都需要重新进行编号
    If IsNull(Me.txt分类编号) Or Nz(Me.cbo上级分类编号) <> Me.cbo上级分类编号.Tag Then
        '如果是修改分类但上级分类发生变化时，需要先删除已有的节点
        If Not IsNull(Me.txt分类编号) Then
            DAORunSQL "DELETE FROM 物料分类表 WHERE 分类编号='" & Me.txt分类编号 & "'"
            gobjTreeView.Nodes.Remove gobjTreeView.SelectedItem.Key
        End If


        '----------生成编号的代码开始----------
        strSQL = " SELECT * FROM 物料分类表" _
               & " WHERE 分类编号 Like '" & Me.cbo上级分类编号 & "####'" _
               & " ORDER BY 分类编号"
        Set rst = CurrentDb.OpenRecordset(strSQL)
        lngNum = 1001   '初始编号从1001开始，而不是从1开始，可以保证编号位数固定，而不需要格式化补零
        Do Until rst.EOF
            If CLng(Right(rst!分类编号, 4)) > lngNum Then
                Exit Do
            End If
            lngNum = lngNum + 1
            rst.MoveNext
        Loop
        strNewNum = Me.cbo上级分类编号 & lngNum
        '----------生成编号的代码结束----------


        '保存新增或重新生成的分类到表中
        rst.AddNew
        rst!分类编号 = strNewNum
        rst!分类名称 = Me.txt分类名称
        rst.Update
        rst.Close


        '将新增或重新生成的分类添加到树列表中
        Set objNode = gobjTreeView.Nodes.Add("K" & Me.cbo上级分类编号, tvwChild, _
                                             "K" & strNewNum, Me.txt分类名称)
        objNode.EnsureVisible                       '使新增的节点可见
        Set gobjTreeView.SelectedItem = objNode     '选中新增的节点
        Set gobjTreeView.DropHighlight = objNode    '高亮新增的节点
        If Not objNode.Parent Is Nothing Then
            Me.cbo上级分类编号 = Mid(objNode.Parent.Key, 2)
        Else
            Me.cbo上级分类编号 = Null
        End If
        If IsNull(Me.txt分类编号) Then
            Me.txt分类名称 = Null
            Me.txt分类名称.SetFocus
            Me.cbo上级分类编号.Requery
        Else
            DoCmd.Close acForm, Me.Name
        End If
    Else
        '仅修改分类名称时（上级分类不变），直接更新表中和树列表中的分类名称即可
        strSQL = "UPDATE 物料分类表 SET 分类名称 = '@新分类名称' WHERE 分类编号 = '@分类编号'"
        strSQL = Replace(strSQL, "@新分类名称", Me.txt分类名称)
        strSQL = Replace(strSQL, "@分类编号", Me.txt分类编号)
        DAORunSQL strSQL
        gobjTreeView.SelectedItem.Text = Me.txt分类名称
        DoCmd.Close acForm, Me.Name
    End If


ExitHere:
    Set rst = Nothing
    Set objNode = Nothing
    Exit Sub


ErrorHandler:
    MsgBoxEx Err.Description, vbCritical
    Resume ExitHere
End Sub