'..dt = vorhandenes DataTable
Dim newdt As System.Data.DataTable = New System.Data.DataTable
Dim myDTColToExport() As String = "STK_TEILNR", "STK_PD_NUM", "STK_STUECK", _
                                  "STK_BEST_TEXT", "MATGRUPPE_ID", "STK_ADR_ID"}
 
newdt = dt.DefaultView.ToTable("AV_STK", False, myDTColToExport)
 
newdt.WriteXml(XML_File)

mfg.

Dirk