Sub Test_Click
Connection.Close
Connection.Open("Data Source = " & AppPath & "\test.sqlite")
Connection.BeginTransaction
Command.CommandText="DROP table movies"
Command.ExecuteNonQuery
Connection.CreateSQLTable("ImportMovies","tmp_movies")
Command.CommandText="INSERT INTO tmp_movies SELECT * FROM tmp_movies"
Command.ExecuteNonQuery
Command.CommandText = "CREATE TABLE movies (movie_id INTEGER PRIMARY KEY, movie_title TEXT, genre_id NUMERIC, format_id NUMERIC, movie_date NUMERIC, movie_modified NUMERIC, movie_copy TEXT, movie_place TEXT, movie_comment TEXT, movie_fsk TEXT, movie_length NUMERIC, movie_celebs TEXT, movie_regie TEXT, movie_description TEXT)"
Command.ExecuteNonQuery
Command.CommandText = "INSERT INTO movies SELECT * FROM tmp_movies"
Command.ExecuteNonQuery
Command.CommandText = "DROP TABLE tmp_movies"
Command.ExecuteNonQuery
Connection.EndTransaction
Msgbox("Database successfully created !")
End Sub