DataTable to XElement

I think there would be a better way to do this. Any ideas?

Code:

---

Dim coverage = <Coverage type=""></Coverage>
coverage.FirstAttribute.Value = .MappingType
For Each row As DataRow In .MappingTable.Rows
    Dim mapElement = <Map><Old></Old><New></New></Map>
    mapElement.Elements("Old").Value = row.Item("OldId").ToString
    mapElement.Elements("New").Value = row.Item("NewId").ToString
    coverage.Add(mapElement)
Next

---