Duplicate a record / many records

I want to duplicate records within a table; e.g., find all records where (for example) "Type = 1" and add new records containing the same information in all the other fields but with a new "Type" (say, 9).

I can do a SELECT table.* WHERE table.type = 1

then run through until EOF doing:

strOtherField = rs("OtherField")
(etc for all fields)

then do another rs, adding a new record each time such as,

rs2.Fields("type") = 9
rs2.Fields("OtherField") = strOtherField
(etc for all fields)

rs2.Update

rs.MoveNext
Loop

However, that seems a bit intensive - is there a "Duplicate" command, or some other neater way of doing this?

and just a note:

that's absolutely horrid database design/schema to deep copy almost an entire record...

You're better off having one table of "Type"-s and another with the info and then have a table in between tying together the info rows and the mulitple type rows...... 

my 2 cents anyways