Sub Find_Family(id)
Dim i
    Debug.Print id
    For i =  0  To UBound(FAM,  2 )
        If FAM( 1 , i) = id Or FAM( 2 , i) = id Then
            Find_Child1 FAM( 0 , i)
        End If
    Next i
End Sub
Sub Find_Child1(idF)
Dim i
    For i =  0  To UBound(CHIL,  2 )
        If CHIL( 0 , i) = idF Then
            Find_Family CHIL( 1 , i)
        End If
    Next i
End Sub

Sub Descendants(id)
Dim i, j
    For i =  0  To UBound(FAM,  2 )
        If FAM( 1 , i) = id Or FAM( 2 , i) = id Then
            For j =  0  To UBound(CHIL,  2 )
                If CHIL( 0 , j) = FAM( 0 , i) Then
                    Debug.Print CHIL( 1 , j)
                    Descendants CHIL( 1 , j)
                End If
            Next j
        End If
    Next i
End Sub

Public Sub Descendants(id)
    Dim i, j
    With rst_fam
        .MoveFirst
        For i =  0  To .RecordCount -  1 
            If .Fields( 1 ) = id Or .Fields( 2 ) = id Then
                f = .Fields( 0 )
                With rst_chil
                    .MoveFirst
                    For j =  0  To .RecordCount -  1 
                        If .Fields( 0 ) = f Then
                            Debug.Print .Fields( 1 )
                            Descendants .Fields( 1 )
                        End If
                        .MoveNext
                    Next j
                End With
            End If
            .MoveNext
        Next i
    End With
End Sub