Dim con As New SqlClient.SqlConnection(connstr)
        Dim da As New SqlClient.SqlDataAdapter("Select * From Kunde", con)
        Dim ds As New DataSet
        da.Fill(ds)
        Dim fs As New IO.FileStream("C:\Text.xml", FileMode.Create)
        Dim rij As Rijndael = Rijndael.Create()
        Dim cs As New CryptoStream(fs, rij.CreateEncryptor(rij.Key, rij.IV), _
          CryptoStreamMode.Write)
        ds.WriteXml(cs)
        cs.Close()
        fs.Close()
        cs.Dispose()
        fs.Dispose()