VS 2010 convert EnumerableRowCollection to DataTable

Dim query As EnumerableRowCollection = _
            From miaTable In MYTABLE_Relation.Tables(0).AsEnumerable() _
            Where miaTable!UtranCell_Id = label_master AndAlso lista.Contains(Microsoft.VisualBasic.Right(miaTable!target_cell, 2)) _
            Select miaTable!UtranCell_Id, miaTable!target_cell, miaTable!selectionPriority

Dim tabella_relation_intra As DataTable = New DataTable
tabella_relation_intra = query.Cast(Of DataRow).CopyToDataTable