If FirstTime Then
Dim dbDir As String
Dim dbVer As Int
If File.ExternalWritable Then
dbDir = File.DirDefaultExternal
Else
dbDir = File.DirInternal
End If
dmDRDB.Initialize(dbDir,"dmDiceRoller.db",True)
dbVer=DBUtils.GetDBVersion(dmDRDB)
Log("DBVersion " & dbVer)' I get 1 ALWAYS
DBUtils.SetDBVersion(dmDRDB,2)
dbVer=DBUtils.GetDBVersion(dmDRDB)
Log("DBVersion " & dbVer) 'I get 2
End If