Dim rd2 As New RijndaelManaged()
 
        Dim md5 As New MD5CryptoServiceProvider()
        Dim key2() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes("test"))
        md5.Clear()
        rd2.Key = key2
        rd2.GenerateIV()
        Dim iv2() As Byte = rd2.IV
 
 
 
        Dim fs As New IO.FileStream("test.xml", IO.FileMode.Create)
        Dim cs As New System.Security.Cryptography.CryptoStream(fs, _
          rij.CreateEncryptor(key2, iv2), _
          System.Security.Cryptography.CryptoStreamMode.Write)
        ds.WriteXml(cs)
        cs.Close()
        fs.Close()

       Dim rd2 As New RijndaelManaged()
 
        Dim md5 As New MD5CryptoServiceProvider()
        Dim key2() As Byte = md5.ComputeHash(Encoding.UTF8.GetBytes("test"))
        md5.Clear()
        rd2.Key = key2
        rd2.GenerateIV()
        Dim iv2() As Byte = rd2.IV
 
        Dim fs As New IO.FileStream("test.xml", IO.FileMode.Open)
        Dim cs As New System.Security.Cryptography.CryptoStream(fs, _
          rij.CreateDecryptor(key2, iv2), _
          System.Security.Cryptography.CryptoStreamMode.Read)
        ds.ReadXml(cs, XmlReadMode.DiffGram)
 
        cs.Close()
        fs.Close()
 
        dt = ds.Tables(0)