Lettura dati da database SQLite

' E' possibile leggere in modo nativo i dati da un file di database SQLite
' Per farlo, è necessario copiare nella cartella "bin" del server i file contenuti nello zip scaricabile da qui: https://help.qualiware.it/qw-help/wp-content/uploads/sqlite.zip, 
' e utilizzare il seguente esempio, modificando il percorso del file, la query e i nomi dei campi

Dim conn As System.Data.SQLite.SQLiteConnection
conn = New  System.Data.SQLite.SQLiteConnection("Data Source=C:\temp\CNcom.db;Version=3;New=True;Compress=True;")

conn.Open()
Dim sqlite_datareader As System.Data.SQLite.SQLiteDataReader
Dim sqlite_cmd As System.Data.SQLite.SQLiteCommand
sqlite_cmd = conn.CreateCommand()
sqlite_cmd.CommandText = "SELECT Key,Value FROM MachineStatus"
sqlite_datareader = sqlite_cmd.ExecuteReader()
While sqlite_datareader.Read()        
    Console.WriteLine("Key: "+sqlite_datareader.Item("Key")+" Value: "+sqlite_datareader.Item("Value"))
End While
conn.Close()