Public Sub MainFormLoad(sender As System.Object, e As System.EventArgs)
Dim st As New system.IO.filestream("c:\daten.xml",system.IO.FileMode.create)
	Dim stPfad As String = "http://www.auto.de/datenbank/audi.xml"
	Dim aTa As new datatable("autos")
	dim ods As New DataSet("autoset")
	Dim oxmlrd As New XmlTextReader(stPfad)
'---- XML in das DataSet einlesen
	ods.ReadXml(oXmlRd)

Private Sub Button1Click(sender As System.Object, e As System.EventArgs)
ods.WriteXml(st)
End Sub