Como copiar un datarow en un DataTable

[Developer9]

HOla amigos... tengo un problema, necesito añadir un datarrow a un datatable y no me deja, me dice que el datarow ya pertenece a otro datatable Lo que el codigo pretende hacer es filtrar el dataset por cada IdBodega, y todos los datarrows productos del filtro enviarlos a otro DataTable (del dataset dsItemxBodegaFinal) y eliminarlos del DataTable original del dataset (dsItemxBodega)

Mi codigo es este, se me cae en la linea roja

Código:

Dim dsItemxBodegaFinal As New DataSet        
        Dim idbodega As Integer
        Dim arrdr As DataRow()
        Dim i As Integer = 0
        Dim condicion As String

        For Each dr As DataRow In dsItemxBodega.Tables(0).Rows
                Dim dt As DataTable = New DataTable
                condicion = "IdBodega = " + Convert.ToString(dr("IdBodega"))
                arrdr = dsItemxBodega.Tables(0).Select(condicion)
                Dim dr3 As DataRow = dsItemxBodega.Tables(0).NewRow
                For Each dr2 As DataRow In arrdr
                    dt.Rows.Add(dr2)                   
                    dsItemxBodega.Tables(0).Rows.Remove(dr2)
                Next
                dsItemxBodegaFinal.Tables.Add(dt)
                dsItemxBodega.AcceptChanges()
                i = i + 1
            Next

Alguna ayuda?