Dim dtCombo As New DataTable
  dtCombo.TableName = "CboC1_Items"
 
  With dtCombo.Columns
       .Add("CboItems", GetType(String))
  End With
 
  With dtCombo.Rows
       .Add("IT1")
       .Add("IT2")
       .Add("IT3")
  End With
 
 
  Dim cboC1 As New ComboBox
 
  Dim bsC1 As New BindingSource(dtCombo, Nothing)
  cboC1.DataSource = bsC1
  cboC1.DisplayMember = "CboItems"

Dim ds As New DataSet
ds.Tables.Add(dtCombo)
ds.Tables.Add(dtTexte)
ds.Tables.add(dtGrid)
 
ds.WriteXml("C:\daten\dataset.xml", XmlWriteMode.WriteSchema)