Acceso completo a una base de datos Ejercicio VB.Net - Curso de Programación Visual Basic

Imports System
Imports System.Data.SQLite
Imports System.IO
Class Program
    Private Shared Sub Main(ByVal args As String())
        Dim finish As Boolean = False
        Dim [option] As String
        Dim title, author, genere, sumary As String
        Dim cmd As SQLiteCommand
        Dim conection As SQLiteConnection = New SQLiteConnection("Data Source=ejemplo01.sqlite;Version=3;New=True;Compress=True;")
        conection.Open()

        If Not File.Exists("ejemplo01.sqlite") Then
            Console.WriteLine("Creando la base de datos...")
        End If

        Dim creacion As String = "CREATE TABLE IF NOT EXISTS books(title varchar(20)," & " author varchar(20),genere varchar(20), sumary varchar(20));"
        cmd = New SQLiteCommand(creacion, conection)
        cmd.ExecuteNonQuery()

        Do
            Console.WriteLine()
            Console.WriteLine("Books database")
            Console.WriteLine()
            Console.WriteLine("1.- Add a new Book")
            Console.WriteLine("2.- View all Books")
            Console.WriteLine("0.- Exit")
            Console.WriteLine()
            Console.Write("Choose an Option: ")
            [option] = Console.ReadLine()

            Select Case [option]
                Case "0"
                    finish = True
                Case "1"
                    Dim continueOption As String

                    Do
                        Console.Write("Enter the title: ")
                        title = Console.ReadLine()
                        Console.Write("Enter the author: ")
                        author = Console.ReadLine()
                        Console.Write("Enter the genere: ")
                        genere = Console.ReadLine()
                        Console.Write("Enter the sumary: ")
                        sumary = Console.ReadLine()
                        Dim insercion As String = "insert into books values ('" & title & "'," & " '" & author & "', '" & genere & "', '" & sumary & "');"
                        cmd = New SQLiteCommand(insercion, conection)
                        Dim cantidad As Integer = cmd.ExecuteNonQuery()
                        If cantidad < 1 Then Console.WriteLine("Insert Fails")
                        Console.Write("Enter another book (y/n): ")
                        continueOption = Console.ReadLine()
                    Loop While continueOption.ToString().ToLower() = "y"

                Case "2"
                    Dim consulta As String = "select * from books"
                    cmd = New SQLiteCommand(consulta, conection)
                    Dim datos As SQLiteDataReader = cmd.ExecuteReader()
                    Dim rowCount As Integer = 1
                    Console.WriteLine()

                    While datos.Read()
                        title = Convert.ToString(datos(0))
                        author = Convert.ToString(datos(1))
                        genere = Convert.ToString(datos(2))
                        sumary = Convert.ToString(datos(3))
                        System.Console.WriteLine("{0}- Title: {1}," & " Author: {2}, Genere: {3}, Sumary: {4}", rowCount, title, author, genere, sumary)
                        rowCount += 1
                    End While

                    Console.WriteLine()
            End Select
        Loop While Not finish

        Console.WriteLine("Bye!!")
        conection.Close()
    End Sub
End Class