IMO, a far more robust solution looks like...
Sub DoInsert()
Const SQL_INSERT = _
"INSERT INTO images " & _
"( Genus, SpeciesEpithet, [Image], Collection, Author, sub, infrafamily ) " & _
"SELECT A.Genus, A.SpeciesEpithet, A.[image], 'Collier', 'Barry Collier', "...