Come duplicare un record

Ogni tanto mi trovo a dover creare un duplicato di un record da una tabella di un dataset ad un'altra tabella (a volte facendo il clone e a volte semplicemene spostando il record). Le due tecniche che conosco e che puntualmente dimentico sono quella dell'importrow e dell'itemarray. Mi scrivo qui gli esempi

importrow: Copia un oggetto DataRow in un oggetto DataTable, conservando sia le impostazioni delle proprietà sia i valori originali e correnti
es.
Dim atoTabDS As New DAL_CMS.contenutiDST.info_atomiDataTable
For Each rigaClass In righeTass
atoRig = atoTab.FindByato_id(rigaClass.cla_ato_id)
atoTabDS.ImportRow(atoRig)
Next

itemarray: lo uso per copiare il valore di tutti i campi si un record
es.
Dim tabTmp As New DAL_CMS.contenutiDST.info_atomiDataTable
Dim rt As DAL_CMS.contenutiDST.info_atomiRow
For Each riga In vTas
atoRig = atoTab.FindByato_id(riga.tas_ato_id)
rt = tabTmp.Newinfo_atomiRow
rt.ItemArray = atoRig.ItemArray
tabTmp.Addinfo_atomiRow(rt)
Next