Sub Activity_Create(FirstTime As Boolean)
If File.ExternalWritable Then
Route = File.DirDefaultExternal
Else
Route = File.DirInternal
End If
If File.Exists(Route,DBName) = False
File.Copy(File.DirAssets, DBName, Route, DBName)
End If
Activity.LoadLayout("Main")
Clock.Initialize("Clock", 1000)
If FirstTime = True Then
oSql.Initialize(Route, DBName, False)
Else
oSql.Close
oSql.Initialize(Route, DBName, False)
End If
End Sub