Try to uncomment the line:
File.Delete(File.DirInternal, "persons.db") ' only for testing, removes the database
This deletes the current database from your device and the program saves the default database on the device and then run the program, does it work?
If yes, uncomment the line above and run the program.