Public Function ConvertUntypedToTypedDS(ByVal ds As DataSet) As DataSet1
        Dim stream As MemoryStream = Nothing
        Try
            stream = New MemoryStream()
            ' DataSet inkl. Strukturinfo in den MemoryStream schreiben:
            ds.WriteXml(stream, XmlWriteMode.WriteSchema)
            ' Position im MemoryStream auf Anfang zurück setzen:
            stream.Seek(0, SeekOrigin.Begin)
            ' typisiertes DataSet instanziieren und Inhalt des MemoryStreams 
            ' einlesen:
            Dim ds1 As New DataSet1()
            ds1.ReadXml(stream, XmlReadMode.InferSchema)
            Return ds1
        Catch
            Return Nothing
        Finally
            If stream IsNot Nothing Then stream.Close()
        End Try