Dim ds As DataSet
Dim tmp As DataTable
Dim tmpdatarow As DataRow
Dim i As Integer
Dim j As Integer
tmp = ds.Tables(0).Clone
tmpdatarow = tmp.NewRow
For i = 0 To 2
For j = 0 To tmp.Columns.Count - 1
tmpdatarow(j) = ds.Tables(0).Rows(i)(j)
Next
tmp.Rows.Add(tmpdatarow)
Next
ds.Tables.Add(tmp)
ds.AcceptChanges()