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;"