Puedas ocupar el ImportRow para ir agregando los rows que necesites, solo ten en cuenta que debes tener la misma estructura para evitar problemas.. puedes intentar con ésto:
Cita: Dim ds2 As New DataSet
ds2 = ds1.Clone () 'se copia la estructura
ds2.Tables(0).ImportRow(ds1.Tables(0).Rows(0))
esa serías mas o menos la idea.
Salu2