Sub FillDb
Dim db As SQL
File.Copy(File.DirAssets,"empty.db",File.DirApp,"my.db")
db.InitializeSQLite(File.DirApp, "my.db", True)
db.ExecNonQuery("CREATE TABLE artist(artistid INTEGER PRIMARY KEY,artistname TEXT)")
db.ExecNonQuery("CREATE TABLE track(trackname TEXT,trackartist INTEGER REFERENCES artist(artistid) ON UPDATE CASCADE ON DELETE CASCADE)")
db.ExecNonQuery("INSERT INTO track (trackname, trackartist) VALUES ('abc',2)")
End Sub