VB程序中的一点小问题，请大家帮忙

出现如下两个问题：
1.生成结构树 程序段的.Nodes Compile error：Method or data member not found
2.生成物料清单 程序段的 root Compile error：ByRef argument type mismatch

程序如下：
Private conn As New ADODB.Connection
'建立数据库连接
Public Sub OpenConn()
With conn
If .State = adStateClosed Then
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=DBPath;Persist Security Info=False"
.Open
End If
End With
End Sub

'打开记录集
Public Function OpenRecordset(ByVal strSql As String) As ADODB.Recordset
Dim rs As New ADODB.Recordset
With rs
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.Open strSql, conn, , , adCmdText
End With
Set OpenRecordset = rs
End Function

Dim root As Node

'加载窗体
Private Sub Form_Load()
End Sub

'把Drive1的地址赋给Dir1
Private Sub Drive1_Change()
Form1.Dir1.Path = Form1.Drive1.Drive
End Sub

'把Dir1的地址赋给File1
Private Sub Dir1_Change()
Form1.File1.Path = Form1.Dir1.Path
End Sub

'把File1的地址作为数据库名
Private Sub File1_Click()
If InStr(File1.FileName, ".") = 0 Then
DBName = File1.FileName
Else
DBName = Left(File1.FileName, InStr(Form1.File1.FileName, ".") - 1)
End If
MsgBox DBName
End Sub

'生成结构树

Private Sub Command1_Click()
OpenConn
Set root = TreeView1.Nodes.Add(, , , "DBName")
root.Tag = 1
AddNodes "自行车", root
End Sub

'生成物料清单
Private Sub Command2_Click()
OpenConn
MSFlexGrid1.Cols = 2
MSFlexGrid1.Rows = 1
MSFlexGrid1.TextMatrix(0, 0) = "名称"
MSFlexGrid1.TextMatrix(0, 1) = "数量"
AddRows root
End Sub

'发生错误时退回到原来的状态
Public Function RunTrans(ByVal tranSql As String)
With conn
.BeginTrans
.Execute tranSql
.CommitTrans
End With
End Function

'加载节点生成结构树及统计零部件数量
Public Sub AddNodes(TableName As String, TNode As Node)
Dim pNode As Node
Dim rs As ADODB.Recordset
Set rs = OpenRecordset("select 名称,有无子结点 from " & TableName)
Do While Not rs.EOF
Set pNode = TreeView1.Nodes.Add(TNode, 4, , rs!名称)
pNode.Tag = rs!数量 * TNode.Tag
If rs!有无子节点 Then
AddNodes rs!名称, pNode
End If
rs.MoveNext
Loop
TNode.Expanded = True
End Sub

'向MSFlexGrid中添加记录
Public Sub AddRows(TNode As Node)
Dim pNode As Node
Set pNode = TNode.Child
Do While Not pNode Is Nothing
MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 0) = pNode.Text
MSFlexGrid1.TextMatrix(MSFlexGrid1.Rows - 1, 1) = pNode.Tag
AddRows pNode
Set pNode = pNode.Next
Loop
End Sub
我把这个有错的VB工程，放到happy_baidu@yahoo.cn这个邮箱里了，密码是123456.
把附件下下来后可以直接用于调试，谢谢。

Dim root As Node
'这句要放在最上面

'加载节点生成结构树及统计零部件数量
Public Sub AddNodes(TableName As String, TNode As Node)
Dim pNode As Node
Dim rs As ADODB.Recordset
Set rs = OpenRecordset("select 名称,有无子结点,数量 from " & TableName)
Do While Not rs.EOF
Set pNode = TreeView1.Nodes.Add(TNode, 4, , rs!名称)
pNode.Tag = rs!数量 * TNode.Tag
If rs!有无子节点 Then
AddNodes rs!名称, pNode
End If
rs.MoveNext
Loop
TNode.Expanded = True
End Sub

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/2smq8p24.html