请教这段代码错在哪里？

lesson

Private Sub treeview()
'初始树形图,一个activeX的好例子
Dim objTreeView As Object, objListImage As Object, nodNew, nod1, nod2 As node
Dim rs, rec, recd As Object
Dim prg, sbr As Object
Set objTreeView = Me!treeview1.Object
　　objTreeView.Style = 7 '设置树型样式
　　
　　Set nodNew = objTreeView.Nodes.Add(, , "工艺类别", "　已有工艺类别", 1, 1) '添加根节点,关键字:歌手,显示标题:歌手列表
　　Set rs = CurrentDb.OpenRecordset("SELECT id,工艺类别 FROM 工艺类别 order by 工艺类别;")
　　rs.MoveFirst
　　
　　While Not rs.EOF
　　　　
　　　　'逐加次节点,NODES.ADD (父节点,子节点,关键字,标题)
　　　　Set nod1 = objTreeView.Nodes.Add("工艺类别", tvwChild, rs!工艺类别, rs!工艺类别, 1, 1)
　　　　Set rec = CurrentDb.OpenRecordset("select ID,工艺型号 from 工艺型号 where sortid=" & rs!ID)
　　　　Do While Not rec.EOF And Not rec.BOF
　　　　
　　　　　 objTreeView.Nodes.Add nod1, tvwChild, , rec!工艺型号
　　　　　
　　　　　
　 '以上正常运行，加上以下却报错。
　　　　　 Set nod2 = objTreeView.Nodes.Add("工艺型号", tvwChild, rec!工艺型号, rec!工艺型号, 1, 1)
　　　　　 Set recd = CurrentDb.OpenRecordset("select 工艺名称 from 工艺入库表 where 工艺类别=" & rec!ID)
　　　　　 Do While Not recd.EOF And Not recd.BOF
　　　　
　　　　　　　　 objTreeView.Nodes.Add nod2, tvwChild, , recd!工艺名称
　　　　　　　　
　　　　　　　　recd.MoveNext
　　　　　　　Loop
　　　　　recd.Close
　　'加上以上却报错，以下正常运行，。
　　
　　　'表结构：工艺类别(id,工艺类别)　工艺型号(id,工艺型号,sortid) 工艺入库表(工艺型号,工艺名称)
　　'　　其中　工艺类别(工艺类别) 对应 工艺型号(sortid)
　　 '　　　　 工艺型号(id) 对应 工艺入库表(工艺型号)
　　　　
　　　　　rec.MoveNext
　　　　Loop
　　　　rec.Close
　　　　
　　　rs.MoveNext
　　Wend
　　nod1.EnsureVisible
　　rs.Close
　　

End Sub

谢谢！