Dim ds As DataSet = New DataSet("rechnung")
        Dim dt1 As DataTable = ds.Tables.Add("kunde")
 
        Dim col1_1 As DataColumn = dt1.Columns.Add("kdnr", Type.GetType( _
          "System.String"))
        Dim col1_2 As DataColumn = dt1.Columns.Add("firma", Type.GetType( _
        "System.String"))
 
        dt1 = ds.Tables.Item("kunde")
        Dim nr As DataRow = dt1.NewRow()
        nr("kdnr") = "K0001"
        nr("firma") = "Name der Firma"
        dt1.Rows.Add(nr)
 
        WriteSchemaWithXmlTextWriter(ds)

    Private Sub WriteSchemaWithXmlTextWriter(ByVal thisDataSet As DataSet)
        Dim filename As String = "mySchema2.xml"
        Dim myFileStream As New System.IO.FileStream(filename, _
          System.IO.FileMode.Create)
        Dim MyXmlTextWriter As New System.Xml.XmlTextWriter(myFileStream, _
        System.Text.Encoding.Unicode)
        thisDataSet.WriteXmlSchema(MyXmlTextWriter)
        MyXmlTextWriter.Close()
    End Sub