继续求助！！！！ado控件？？

Question

Dim connstr As String
Dim ado1 As ADODB.Recordset
Dim conn As ADODB.Connection
Set lsv1.DataSource = ado1
Set conn = New ADODB.Connection
Set ado1 = New ADODB.Recordset
Set nodx1 = trv1.Nodes.Add(, , "a", "工程机械轮胎")
nodx1.Expanded = False
Set nodx2 = trv1.Nodes.Add(, , "b", "工程机械桥")
nodx2.Expanded = True
'-------------------------初始化数据库-------------------------------------'connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & App.Path & "\db1.mdb"
conn.CursorLocation = adUseClient
conn.Open connstr'-------------------------定义目录树-------------------------------------'
'Set lsv1.DataSource = ado1ado1.Open "select distinct 样式 from 工程机械轮胎", conn, 1, 1
Set lsv1.DataSource = ado1
ado1.MoveFirst
Do While Not ado1.EOF
trv1.Nodes.Add "a", tvwChild, , ado1.Fields("样式")
 ado1.MoveNext
Loop显示不出数据来？？？请问我连接上数据库了吗？怎样连接？错误在那里？？？

Answer 1

想在lsv1(datagrade)里，显示符合条件的数据表，结果显示不出来？？？

Answer 2

想把access数据表中的数据列出，且“样式”中不重复的内容作为treeview的子节点，现在问题是显示不出数据表