Hi

I am working with Listview and I can call the record from Listview into textbox

But the Treeview ?????
I am traing to use this to call data from database when I click on the treeview but when I click on the top record I get data from database, I only want to get data when I select the Child

But I only get the 1 data in database if I click on somthing

Call DisplayItem(Node)

Private Sub DisplayItem(ByVal nodDisplayedNode As Node)

Dim rsDisplay As ADODB.Recordset
Set rsDisplay = New ADODB.Recordset
strSQL = "Select * from Produto"
rsDisplay.Open strSQL, cnn, adOpenStatic, adLockOptimistic
Nafn.Text = IIf(IsNull(rsDisplay.Fields("COD_GRUPO")) = True, "", rsDisplay.Fields("COD_GRUPO"))

End Sub


-----TREEVIEW-----------------------
This is the sample I am use to call data from database

Dim TotalProd As Long
Dim db As Database
Dim rs As Recordset

Dim dbProdutos As Recordset
Set db = OpenDatabase(App.Path + "\2000.mdb")

Screen.MousePointer = 11
DoEvents

Set dbGrupoProduto = db.OpenRecordset("SELECT * FROM Grupo_Produto ORDER BY NOME_GRUPO", dbOpenSnapshot)

With TreProdutos


Do Until dbGrupoProduto.EOF
Set dbProdutos = db.OpenRecordset("SELECT COD_PRO FROM Produto WHERE GRUPO_PRO = " & dbGrupoProduto!COD_GRUPO & " ORDER BY DES_PRO", dbOpenSnapshot)
If dbProdutos.RecordCount > 0 Then dbProdutos.MoveLast: dbProdutos.MoveFirst
.Nodes.Add , , , dbGrupoProduto!NOME_GRUPO & " - (" & dbProdutos.RecordCount & " )", 1
X = .Nodes.Count
Do Until dbProdutos.EOF
.Nodes.Add X, tvwChild, , "[ " & dbProdutos!COD_PRO & " ]", 2
TotalProd = TotalProd + 1
dbProdutos.MoveNext
Loop
dbGrupoProduto.MoveNext
Loop

End With

Set dbGrupoProduto = Nothing
Set dbProdutos = Nothing
DoEvents
Screen.MousePointer = 0