Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node) '双击定额子目树末节点插入定额子目
Dim a As String
Dim b As String

If Node.Children > 0 Then Exit Sub '如果是父节点，则不响应此事件
a = TreeView1.SelectedItem.Key

MsgBox a

    Set RS = New ADODB.Recordset
    RS.CursorLocation = adUseClient
    RS.Open "select * from treeweb where treekey" = "a ", Conn '执行到这里报错----
        
Set DataGrid1.DataSource = RS '给DataGrid修改数据源

'------我想实现的效果是双击树末节点，在datagrid中插入与节点KEY想对应的数据行的第二和第四列数据-------
End Sub

谢谢，各位麻烦指导下

[ 本帖最后由 darkcmin 于 2014-12-21 12:58 编辑 ]

在线等，麻烦指导下

将你报错的语句修改为下面的语句即可，另你不是双击，是单击。
    RS.Open "select * from treeweb where treekey='" & a & "'", Conn '执行到这里报错----

谢谢