Как добавить номер строки к каждому элементу, выбранному в инструкции insert into select

---

Проблема, с которой я сталкиваюсь, заключается в том, что когда я использую свой код, он использует одну и ту же ссылочную строку во всех операторах insert into select. Например, если строка 4097 и я запускаю свой код для вставки 4 записей, он будет повторять то же самое число в столбце.

Вот мой код:

Dim lastRow = dtc.Rows.Cast(Of DataRow)().LastOrDefault()
       Dim I As Integer = 0
       I += 1

       Dim laststr As String = lastRow.Item("ID").ToString + I

       'This is for personal information input

       Using sqlconn As New SqlConnection("SQLstring")

           Using da As New SqlDataAdapter(String.Empty, sqlconn)

               Dim sql As New StringBuilder("insert into [")
               sql.Append(TreeView1.SelectedNode.Text.Replace("]", "\]"))
               sql.Append("] (")

               Dim sql1 As New StringBuilder("")

               Dim andRequired As Boolean = False

               If datat.Columns.Contains("ID") Then

                   If andRequired Then
                       sql.Append(", ")
                       sql1.Append(", ")
                   End If

                   sql.Append("[Individual_ID]")
                   sql1.Append(laststr)
                   andRequired = True

               End If

               sql.AppendFormat(") Select " + sql1.ToString + " from table2")
               da.SelectCommand.CommandText = sql.ToString()

               MessageBox.Show(sql.ToString)

               da.Fill(datat)

           End Using

       End Using

Как я могу получить номер строки каждой новой строки, добавленной в столбец?

Что я уже пробовал:

Я попытался повторить итерацию, используя I как целое число.

Dim I As Integer = 0
      I += 1

      Dim laststr As String = lastRow.Item("ID").ToString + I

но он добавляет только первый новый номер строки.

---