求助：ACCESS 运行时错误'35602'

原来运行的好好的现在突然出现这种错误

代码：

Private Sub Form_Load()

Dim Nodeindex As Node

  Set Nodeindex = TreeView.Nodes.Add(, , "爷", "水果", "K1")
   Nodeindex.Sorted = True

Set Nodeindex = TreeView.Nodes.Add("爷", tvwChild, "父1", "苹果", "K1")
  Nodeindex.Sorted = True
   
  Set Nodeindex = TreeView.Nodes.Add("爷", tvwChild, "父2", "葡萄", "K1")
  Nodeindex.Sorted = True

Set Nodeindex = TreeView.Nodes.Add("父1", tvwChild, "子1", "红富士", "K1")
  Nodeindex.Sorted = True
   
  Set Nodeindex = TreeView.Nodes.Add("父1", tvwChild, "子2", "国光", "K1")
  Nodeindex.Sorted = True

  Set Nodeindex = TreeView.Nodes.Add("父2", tvwChild, "子3", "红提子", "K1")
  Nodeindex.Sorted = True

  Set Nodeindex = TreeView.Nodes.Add("父2", tvwChild, "子4", "青提子", "K1")
  Nodeindex.Sorted = True