treeview巧妙设计遇难题，大家都来解决哈！受益不浅

Question

我用Treeview来浏览图书简介，如下效果：单击二级子节点“书名”时，在右边的
Text1中显示book的“简介信息”（即Book.mdb中bookInfo表的：bookIntro字段）
--------------------------------------------------------------------------
*全部类别
|--计算机
|   |____VB技术大全
|   |____VFP控件手册
|
|--机械
|   |____机械制图
|   |____机械基础
|
我就在这个地方卡壳了，代码运行不能浏览简介信息，高手大哥请 支招！谢谢！
Private Sub trv_NodeClick(ByVal Node As MSComctlLib.Node)
    Data1.RecordSource = "bookInfo"     'Book.mdb中bookInfo表
    Data1.Refresh
    
  If trv.SelectedItem.Text = Data1.Recordset("bookName") Then
     
     Text1.Text = Data1.Recordset("intro")
  End If           
    
End Sub

Answer 1

上面代码 Text1.Text = Data1.Recordset("intro") 
应该是  Text1.Text = Data1.Recordset("Bookintro") 不好意识！特此更正

Answer 2

试一试改为Text1.Text = Data1.Recordset.Fields("Bookintro") .value

Answer 3

好了，问题已经解决！代码如下
Private Sub trv_NodeClick(ByVal Node As MSComctlLib.Node)
    On Error Resume Next
    Data1.RecordSource = "detail"
    Data1.Refresh
    On Error Resume Next
     
     Data1.RecordSource = "select intro from detail where dename=" + "'" + trv.SelectedItem.Text + "'"
     
     Data1.Refresh
     Text1.Text = Data1.Recordset("intro")
     RichTextBox1.Text = Data1.Recordset("intro")
     
End Sub