Dim _KundenXMLStream As New System.IO.FileStream(_KundenPfad, _
          System.IO.FileMode.Create)
        Dim _KundenXMLWriter As New System.Xml.XmlTextWriter(_KundenXMLStream, _
        System.Text.Encoding.Unicode)
        _DSKunden.WriteXml(_KundenXMLWriter, XmlWriteMode.WriteSchema)
        _KundenXMLWriter.Close()