seleccionar por nombres y mostrar en crystal report

[ajmataurus]

bueno este es el codigo para llenar el treeview

Código:

Private Sub Cargar(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
        'instancia de los objetos
        Dim cncadena As String
        cncadena = "data source=pc05; user id=sa; pwd='';"
        cncadena &= "initial catalog=dbCLS; connect Timeout=1000000"
        cn = New SqlConnection(cncadena)    'Conexión

        'adaptadores
        daNombres = New SqlDataAdapter("select * from tblcls", cn)
        'dataset
        dsDatos = New DataSet
        'lenar dataset
        daNombres.Fill(dsDatos, "Locatarios")
        'la vista
        'el treeview-nodo raiz
        tvData.Nodes.Add("locatarios")
        ''llenar el treeView
        Dim dr As DataRow
        Dim nodo As TreeNode
        For Each dr In dsDatos.Tables("locatarios").Rows
            'llenar todas las categorias-categoryName
            nodo = tvData.Nodes(0).Nodes.Add(dr("locatario"))
            ''llenar los productos de cada Categoría
        Next
    End Sub

y al ejecutar aparecen en el treeView todos los nombres, bueno ahora lo que necesito es que al darle click en uno de los nombres aparesque en el crystal report.