while not tu_variable_de_la_tabla.EOF
       combo1.AddItem tb!Especie
       tu_variable_de_la_tabla.Movenext
wend

rs.Open "Select * from ANIMALES"
rs2.Open "Select * from ESPECIES"

rs.Open "SELECT A.Campo1, A.Campo2, B.Campo1, B.Campo2 " & _
             "FROM Animales as A, Especies as B " & _
             "WHERE A.Campox = B.Campox;"

Type otramatriz
    datos() As Variant
End Type

Public matriz() As otramatriz

    ReDim matriz(1 To 10)
    ReDim matriz(1).datos(1 To 10)
    ReDim matriz(2).datos(1 To 10)
    ReDim matriz(3).datos(1 To 10).....

Function convertirBytes (ByRef una_matriz() As otramatriz) As Long
********
end function

    List1.AddItem "item1"
    List1.AddItem "item2"
    List1.AddItem "item3"
    
    
    MsgBox List1.List(2)

Public Function BuscarHijos(P1 As Integer, Pariente as String) As Variant

   strsql = "SELECT Max(mid(jerarquia, ["& P1 &"],2)) as Resultado FROM tbl_generaciones Where Mid(Jerarquia,1,1)=" & Mid(Nombredetuform.txtpariente, 1, 1)