Use WAL mode with SQLite

modDatabase.vb

@@ -6,6 +6,7 @@ Module modDatabase
     Public conn As SQLiteConnection = New SQLiteConnection
 
     Sub CreateDb()
+        Execute("PRAGMA journal_mode = WAL")
         Execute("CREATE TABLE IF NOT EXISTS ""CONFIG"" (""Key"" varchar(100) primary key not null ,""Value"" varchar )")
         Execute("CREATE TABLE IF NOT EXISTS DEVICES(Id INTEGER PRIMARY KEY, Name TEXT, Type TEXT, Model TEXT, Location TEXT, Address TEXT UNIQUE)")
         Execute("CREATE TABLE IF NOT EXISTS ENVIRONMENT(Id INTEGER PRIMARY KEY, Date TEXT, Source TEXT, Location TEXT, Temperature INTEGER, Humidity INTEGER, Condition TEXT)")