Quite complicated but much better :
Private Sub Form_Open(Cancel As Integer)
Dim db As DAO.Database
Dim rst1 As DAO.Recordset, rst2 As DAO.Recordset, rst3 As DAO.Recordset, rst4 As DAO.Recordset
Dim tree As TreeView
Dim n1 As Node, n2 As Node, n3 As Node, n4 As Node
Dim a As Integer, b As...