Private rp As RuntimePermissions
' SafeDir = rp.GetSafeDirDefaultExternal("SQLite") 'klaus
SafeDir = rp.GetAllSafeDirsExternal("SQLite")(1) 'mahares
File.Copy(File.DirAssets,"persons.db",SafeDir,"persons.db") 'mahares
LoadDatabase(SafeDir, "persons.db")