' dtTable1  - ссылка на необходимую таблицу'
Dim drwSource as DataRow 
drwSource = ' ссылка на необходимую строку, как она берется вы не уточнили. '
Dim drwNew  as DataRow = dtTable1.Rows.NewRow() ' Новая строка-копия'
drwNew.BeginEdit()
' Можно столбцы прогнать в цикле, а можно и вручную если очень хочется'
drwNew( 0 ) = drwSource( 0 )
drwNew( 1 ) = drwSource( 1 )
...
....
drwNew("Id") =  Id ' новый Id для этой строки , пусть поле называется Id '
drwNew.EndEdit()
' Добавим строку в таблицу
dtTable1.Rows.Add(drwNew)

     MsgBox(dsNewSD.Tables("spVeks").Rows.Count)
        Dim drwSource As Infragistics.Win.UltraWinGrid.UltraGridRow
        Dim drwSC As Infragistics.Win.UltraWinGrid.RowsCollection = Me.ugVeks.Rows
        For i =  0  To drwSC.Count -  1 
            drwSource = Me.ugVeks.Rows(i)
            Dim drwNew As DataRow = dsNewSD.Tables("spVeks").NewRow   ' Новая строка-копия
            drwNew.BeginEdit()
  
'            drwNew = CType(drwSource.ListObject, DataRowView).Row ' Вот эта строка лишняя, мы же уже создали строку при помощи NewRow, теперь просто необходимо последовательно скопировать все значения из строки drwSource в новую созданую drwNew.'
            drwSource = CType(drwSource.ListObject, DataRowView).Row 
' Делаю вручную чтобы было понятнее, также можно сделать в цикле '
             drwNew( 0 ) = drwSource( 0 )
             drwNew( 1 ) = drwSource( 1 )
            drwNew( 2 ) = drwSource( 2 )
            drwNew( 3 ) = drwSource( 3 )
            drwNew( 4 ) = drwSource( 4 )
' и т.д это зависит от того сколько у вас столбцов в таблице можно и через название полей, например так:
'
'            drwNew("Поле1") = drwSource("Поле1")
'             drwNew("Поле2") = drwSource("Поле2")
'
            drwNew("№") = 1000  ' новый Id для этой строки             
            drwNew.EndEdit()
            ' Добавим строку в таблицу
            dsNewSD.Tables("spVeks").Rows.Add(drwNew)
        Next i
        MsgBox(dsNewSD.Tables("spVeks").Rows.Count)

Dim drwSource As Infragistics.Win.UltraWinGrid.UltraGridRow

Dim drwSource As DataRow

Dim dtTartget as DataTable
dtTarget = dtSource.Copy()
' Теперь нам надо поменять ID, я просто "пробегаюсь" по всем записям и  присваю новый ID. (Например пусть поле с ID называется IDColumn) '
Dim row as DataRow
Dim newId as Integer =  0 
Dim delta as Integer = - 1 
For each row in dtTarget.Rows
  newId = newId + delta
  row("IdColumn") = newId  ' Тогда у записей в ID значения будут - 1 , - 2 , - 3 , - 4 , - 5  и т.д
Next

Dim drwSource As Data.DataRow
        Dim vue As New Data.DataView
        vue.Table = dsNN.Tables("spVeks")
        For Each drwSource In vue.Table.Rows
            Dim drwNew As DataRow = dsNN.Tables("spVeks").NewRow   ' Новая строка-копия'
            drwNew.BeginEdit()
            For i =  0  To  46 
                drwNew(i) = drwSource(i)
                drwNew("iduvsd") =  1000   ' новый Id для этой строки , пусть поле называется Id '
            Next i
            drwNew.EndEdit()
            dsNN.Tables("spVeks").Rows.Add(drwNew)
        Next drwSource

Dim dt As DataTable = dsNN.Tables("spVeks")
Dim newId As Integer =  1000  ' Если не задан PK то такой вариант пройдет, можно сделать через AutoIncrement column 

Dim rowsCount As Integer = dt.Rows.Count ' Количество строк
Dim rowIndex As Integer =  0  ' Индекс по строкам
For rowIndex = 0 To rowsCount - 1
    Dim drwSource As Data.DataRow = dt.Rows(rowIndex) ' Строка источник данных
    Dim drwNew As DataRow = dt.NewRow   ' Новая строка-копия'
    drwNew.BeginEdit() ' Чтобы невызывать каждый раз Event
    Dim columnIndex As Integer = 0
    For columnIndex = 0 To dt.Columns.Count - 1
        drwNew(columnIndex) = drwSource(columnIndex)
    Next
    drwNew("iduvsd") = newId  ' новый Id для этой строки , пусть поле называется Id'
    drwNew.EndEdit()
    dt.Rows.Add(drwNew) ' Добавим в таблицу
Next

Dim dt As DataTable = dsNN.Tables("spVeks")
Dim newId As Integer =  1000  ' Если не задан PK то такой вариант пройдет, можно сделать через AutoIncrement column 
Dim rowsCount As Integer = dt.Rows.Count ' Количество строк
Dim rowIndex As Integer =  0  ' Индекс по строкам
For rowIndex = 0 To rowsCount - 1
    Dim drwSource As Data.DataRow = dt.Rows(rowIndex) ' Строка источник данных
    Dim drwNew As DataRow = dt.NewRow   ' Новая строка-копия'
    drwNew.BeginEdit() ' Чтобы невызывать каждый раз Event
    Dim autoId As Integer = drwNew("iduvsd") ' Добавим эту строчку
    Dim columnIndex As Integer =  0 
    For columnIndex =  0  To dt.Columns.Count -  1 
        drwNew(columnIndex) = drwSource(columnIndex)
    Next
    drwNew("iduvsd") = autoId  ' изменим эту
    drwNew.EndEdit()
    dt.Rows.Add(drwNew) ' Добавим в таблицу
Next