Sub Activity_Create(FirstTime As Boolean)
rp.CheckAndRequest(rp.PERMISSION_ACCESS_FINE_LOCATION)
Wait For Activity_PermissionResult (Permission As String, Result As Boolean)
If Result = False Then
MsgboxAsync("No permission granted", "")
Return
Else
sql.Initialize(rp.GetSafeDirDefaultExternal("HomeBase.db"),"HomeBase.db",True) 'call this sub
'some other SQL, but it doesn't come here
End If
End Sub