DB.Initialize(Dir, "MyDb.db", True)
If File.Exists(Dir, "MyDbE.db") Then
File.Delete(Dir, "MyDbE.db")
End If
DB.ExecNonQuery("ATTACH DATABASE '" & File.Combine(Dir, "MyDbE.db") & "' AS MyDbE")
SqlCipher1.Initialize(Dir, "MyDbE.db",True,MyPassword,"")
txt="CREATE TABLE IF NOT EXISTS MyDbE.TableData AS SELECT * FROM TableData"
DB.ExecNonQuery(txt)