哪位VB高手帮我解决一下 万分感谢

Private Sub Form_Load()
dbl
Dim nodex As Node
Dim k As ADODB.Recordset
Dim a As String
TreeView1.Nodes.Clear
a = "客户姓名"
Set nodex = TreeView1.Nodes.Add(, , a, "客户姓名", 1, 1)
str = "select * from 客户资料 "
Set rs = db.OpenRecordset(str)
If rs.RecordCount > 0 Then
rs.MoveFirst
Do While Not rs.EOF
Set nodex = TreeView1.Nodes.Add(a, tvwChild, , rs.Fields(4), 2, 2)
rs.MoveNext
Loop
End If
rs.Close
Set rs = Nothing

End Sub

说我子程序或函数未定义
db1是我的数据库名字啊 模块里定义了啊

哪位高手帮我解决一下?? 哪位高手帮我解决一下 vb高手请帮我解决一下这个问题 哪位高手帮我解决一下我的鼠标问题？ 哪位高手帮我解决一下屏幕问题！ 哪位生物高手帮我解决几个小题一下？ 用户账户问题...哪位高手帮我解决一下... 哪位高手帮我解决一下,电脑系统问题 哪位高手帮我解决一下SQL 的问题 请哪位高手帮我解决一下安装问题