Android Question Problems with variables initialized in Starter service

.....
.....
Routine Restart started
UsersA Found: 0
Average Users: 0
UsersB found: 36
Distance: 7.4305901527404785
Restart in 4 minutes
Database not initialized?!?!?!
16:56:33
status: 1
.....
.....

If StartingIntent.IsInitialized And StartingIntent.Action = "android.net.conn.CONNECTIVITY_CHANGE" Then
   If (Starter.Database.IsInitialized == True) Then

       .....<My codes here>.....
   Else
       logger.Initialize(File.OpenOutput(File.DirDefaultExternal, "Logger.txt", True))
       logger.WriteLine("Database not initialized?!?!?!")
       logger.Close
   End If
Else
....
End If

Riautenticazione.PostString(Starter.IndirizzoServer & Starter.VersioneApp & "/Riauth.php", "user=" & Funzioni.ImpostazioniGET("user") & "&password=" & Funzioni.ImpostazioniGET("pass"))

Sub ImpostazioniGET(NomeImpostazione As String) As String
  
    Dim ValoreDaRestituire As String
 
    Dim CursoreImpostazioni As Cursor
 
    Try
        CursoreImpostazioni = Starter.DatabaseImpostazioni.ExecQuery2("SELECT [" & NomeImpostazione & "] FROM impostazioni WHERE user = ?",  Array As String(Starter.Username))
    Catch
        Starter.DatabaseImpostazioni.ExecNonQuery("ALTER TABLE impostazioni ADD COLUMN [" & NomeImpostazione & "] TEXT")
        Starter.DatabaseImpostazioni.Initialize(File.DirDefaultExternal, "settings.db", True)
        ValoreDaRestituire = Null
      
        Return ValoreDaRestituire
    End Try
 
 
    If CursoreImpostazioni.RowCount > 0 Then
        CursoreImpostazioni.Position = 0
        ValoreDaRestituire = CursoreImpostazioni.GetString(NomeImpostazione)
    Else
        ValoreDaRestituire = Null
    End If
  
    CursoreImpostazioni.Close
    Return ValoreDaRestituire
 
End Sub

Sub Application_Error (Error AsException, StackTrace AsString) As Boolean
  Dim jo AsJavaObjectDim l As Long = 500
  jo.InitializeStatic("java.lang.Thread").RunMethod("sleep", Array(l))
  logcat.LogCatStop
  logs.Append(StackTrace)
  File.WriteString(File.DirDefaultExternal, "CrashReport.txt", logs)
  File.WriteString(File.DirDefaultExternal, "CrashReport.txt", Chr(10) & Chr(10) & "============================" & Chr(10) & Chr(10))
  ReturnTrue
End Sub

if ispaused(ServiceName) then
  stopservice(ServiceName)
  startservice(ServiceName)
end if