Allora nel continuare a mangiarmi la testa ho modificato questo ocodice
Set rsA = CurrentDb.OpenRecordset(SELECT IDAnno ,Anno, Nazione FROM tblNazioni INNER JOIN (tblAnni INNER JOIN tblMonete ON tblAnni.IDAnno = tblMonete.Anno) ON tblNazioni.IDNazione = tblMonete.Nazione)
Do While Not rsA.EOF
Set tempnode = tv.Nodes.Add("NZ" & rsN.Fields("IDNazione"), tvwChild, "A" & rsA.Fields("IDAnno"), rsA.Fields("Anno"))
rsN.MoveNext
Loop
rsA.Close
in
Set rsA = CurrentDb.OpenRecordset("SELECT QGenerale.IDAnno, QGenerale.tblAnni.Anno FROM QGenerale WHERE IDNazione", , dbReadOnly)
Do While Not rsA.EOF
Set tempnode = tv.Nodes.Add("NZ" & rsN.Fields("IDNazione"), tvwChild, "A" & rsA.Fields("IDAnno"), rsA.Fields("Anno"))
rsN.MoveNext
Loop
rsA.Close
spostandomi l'errore qui
Set tempnode = tv.Nodes.Add("NZ" & rsN.Fields("IDNazione"), tvwChild, "A" & rsA.Fields("IDAnno"), rsA.Fields("Anno"))