添加一条本表中的某一条记录一样的记录要什么写?

请问,我想添加一条与本表中某一记录相同的一条记录要什么写?有没便捷的写法?
我只会把那一条记录读出来,然后一个字段一个字段地写进去.
SQL = "insert into 入库记录(日期,名称,计量单位,灭菌批号,生产批号,有效日期,入库数量,单价,出库数量,合格证明,质量状况,验收结论,验收员,供货单位,备注,验收日期,名称ID,验收id,出库原因,接收单位) Values('" & Date & "','" & Trim(grecordset("名称")) & " ','" & Trim(grecordset("计量单位")) & "','" & Trim(grecordset("灭菌批号")) & "','" & Trim(grecordset("生产批号")) & "','" & grecordset("有效日期") & "'," & grecordset("出库数量") & "," & rs("单价") & "," & grecordset("入库数量") & ",'" & Trim(grecordset("合格证明")) & "','" & grecordset("质量状况") & "','" & grecordset("验收结论") & "','" & yh & "','" & Trim(grecordset("供货单位")) & "','" & Trim(grecordset("备注")) & "','" & grecordset("验收日期") & "'," & grecordset("名称ID") & "," & grecordset("ID") & ",'冲红','" & grecordset("接收单位") & "')"
gconnect.Execute (SQL)

比如如上所示,这样写好烦,有没有类似:
SQL = "insert into 入库记录(*) where id=222" '当然这样写是不对的
然后把不同的字段UPDATE一下就可以了.因为只有二个不同的字段,一个是"数量",一个是"出库原因",其它全是一样的.