db.InitializeSQLite(DBFilePath, DBFileName, True)
Dim t1,t2 As Long
db.BeginTransaction
parser.ReadFile(DBFilePath,GedFileName) 'reading a text file
db.TransactionSuccessful
db.ExecNonQuery("PRAGMA foreign_keys = ON")
t1=DateTime.Now
db.ExecNonQuery("UPDATE persons SET id='@' || key || '@'")
t2=DateTime.Now
Log("Completed in " & ((t2-t1)/1000) & " s")