VB中显示红色部分“变量未定义”什么意思？着急啊

下面红色部分总是提示“变量未定义”我用的是VB6.0Treeview控件也添加了Microsoft windows common controls5.0.不知道缺少了什么
Option Explicit

Private Sub Form_Load()
Dim rec As New ADODB.Recordset
Dim strecsql As String
Dim Item As Integer
Dim i As Integer
Dim nodex As Node
Set nodex =  TreeView.Nodes.Add(, , "爷", "销售客户", "k1", "k2")
nodex.Sorted = True
rec.Open "大区表", currentproject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
For i = 0 To rec.RecordCount - 1
 Set nodex = TreeView.Nodes.Add("爷", tvwChild, "父" & rec.Fields("大区ID"), rec.Fields("大区名称"), "k1", "k2")
 nodex.Selected = True
 rec.MoveNext
 Next
 rec.Close
 '设置第三级树
rec.Open "省份表", currentproject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
For i = 0 To rec.RecordCount - 1
 Set nodex = TreeView.Nodes.Add("父" & rec.Fields("所属大区"), tvwChild, "子" & rec.Fields("省份ID"), rec.Fields("省份名称"), "k1", "k2")
 nodex.Sorted = True
 rec.MoveNext
 Next
 rec.Clone
 '设置第四级树
 rec.Open "客户表", currentproject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
 For i = 0 To rec.RecordCount - 1
 Set nodex = TreeView.Nodes.Add("子" & rec.Fields("所属省份"), tvwChild, "孙" & rec.Fields("客户ID"), rec.Fields("客户名称"), "k1", "k2")
 nodex.Sorted = True
 rec.MoveNext
 Next
 rec.Close
 
End Sub

6 个解决方案

#1

控件名 不相符。

#2

你画一个 TreeView 控件上去，它的默认名字是： TreeView1
你没更改，后面就多了个 1 。

#3

引用 2 楼 Chen8013 的回复:

你画一个 TreeView 控件上去，它的默认名字是： TreeView1
你没更改，后面就多了个 1 。

感谢啊，我忘了。还有一个
rec.Open "省份表", currentproject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
中 currentproject.Connection,怎么也未定义啊，我已经引用Microsoft ActiveX data objects 2.0 library

#4

引用 3 楼 u011802624 的回复:

Quote: 引用 2 楼 Chen8013 的回复:

你画一个 TreeView 控件上去，它的默认名字是： TreeView1
你没更改，后面就多了个 1 。

感谢啊，我忘了。还有一个
rec.Open "省份表", currentproject.Connection, adOpenKeyset, adLockOptimistic, adCmdTableDirect
中 currentproject.Connection,怎么也未定义啊，我已经引用Microsoft ActiveX data objects 2.0 library

上面的这个问题也解决了，要引用Microsoft Access 12.0 Object Library。但是之后连接不上数据库是怎么回事啊。并显示

我用的是acess2007保存成了2000的版本。还有个疑问就是上面这行代码就可以直接连接打开数据库了吗？不用添加数据控件什么的了吗？

#5

#6

语文老师默默地转身投了了一个三分球.