If FirstTime = True Then
If File.Exists(File.DirInternal,"thedatabase.db") = False Then
'ToastMessageShow("Database hasn't been copied to read/write area",True)
'Msgbox("Database hasn't been copied to read/write area","Debug")
File.Copy(File.DirAssets,"themsc.db",File.DirInternal,"thedatabase.db")
End If
End If
If SQL1.IsInitialized = False Then
SQL1.Initialize(File.DirInternal,"thedatabase.db", True)
End If