vb.net sqlite

    Public Sub createDB()
        Dim VarLoc As String = "C:\IC\ACK\DB\"
        Dim VarFile As String = "ICack.db"
        Dim Dir As String = VarLoc + VarFile


        Dim SQLconnect As New SQLite.SQLiteConnection()
        Dim SQLcommand As SQLiteCommand
        SQLconnect.ConnectionString = "Data Source=" & Dir & ";"
        SQLconnect.Open()
        SQLcommand = SQLconnect.CreateCommand
        'SQL query to Create Table
        SQLcommand.CommandText = "CREATE TABLE myTable(id INTEGER PRIMARY KEY AUTOINCREMENT, title TEXT, description TEXT, image BLOB);"
        SQLcommand.ExecuteNonQuery()
        SQLcommand.Dispose()
        SQLconnect.Close()

    End Sub