Dim lst As New List(of String)
For Each c As DataCol in DataTables("XXX").DataCols
if c.Name.StartsWith("dc") Then
lst.Add(c.name)
end if
Next
For Each nm As String in lst
DataTables("xxx").Datacols.Delete(nm)
next