Android Question JDBC Going round In Circles!

Wait For (CallSub(RoadsJDBC, "GetNewJobs")) Complete (Result As Boolean)

'  code from for MainOptions.

Sub Process_Globals
    'These global variables will be declared once when the application starts.
    'These variables can be accessed from all modules.
    Private UpdateDB = "update", JOB_LIST = "jobs", LNKJOBS = "lnkjob", BOQ = "boq", CUST = "cust", JOBCARDS = "jobcards" As String
    Private ChargeH ="chargh", GetSQL = "getsql", HEADERID = "headerid", VEHREP = "vehrep", EXPH = "EXPH" As String
    Public bMy As Boolean
    Dim SQL1 As SQL
    Dim Row As Int
    Dim Cursor1 As Cursor
    Dim CurrentIndex = -1 As Int        ' index of the current entry
    Dim RowNumber = 0 As Int                ' number of rows
    Dim iSecondMan As Int
    Dim iVeh As Int
    Dim iSelVeh As Int
    Dim sDeviceID As String
    Dim iLoginID As Int
    
    
End Sub

Sub Globals
    'These global variables will be redeclared each time the activity is created.
    'These variables can only be accessed from this module.

    Dim cmdUpdateDB As Button
    Dim cmdDailyVehCheck As Button
    Dim cmdListMyJobs As Button
    Dim Label1 As Label
    Dim spCrewMember As Spinner
    Dim sSQL As String
    Dim Label3 As Label
    Dim spVehicles As Spinner
    Dim lblUser As Label
    Dim cmdExit As Button
    Dim sToday As String
    Dim lvwCrew As ListView
    Dim iHeader As Int
    Dim ProgressBar1 As ProgressBar
End Sub


Sub cmdUpdateDB_Click
    
    'First - send jobs if exists
    Dim sSQL As String
    Dim Cursor1 As Cursor
    Dim iID As Int
    
    iID=0
    ProgressDialogShow("Please wait!")
    Try
        sSQL="SELECT QID FROM importlog ORDER BY QID DESC LIMIT 1"
        Cursor1 = SQL1.ExecQuery(sSQL)
        If Cursor1.RowCount > 0 Then                        'check if entries exist
            RowNumber = Cursor1.RowCount                    'set the row count variable
            For Row = 0 To RowNumber - 1
                Cursor1.Position = Row
                Try
                    iID = Cursor1.GetInt("QID")
                Catch
                    iID=0
                End Try
            Next
        End If
        Cursor1.Close
    Catch
        iID=0
    End Try
    ProgressBar1.Visible = True

'###########Break point on next line, step on and nothing happens
    
    Wait For (CallSub(RoadsJDBC, "GetNewJobs")) Complete (Result As Boolean)


    
    ProgressBar1.Visible = False

    ProgressDialogHide


End Sub

    
'  service module RoadsJDBC:   

Sub Process_Globals
    Public mysql As JdbcSQL
    Private driver As String = "com.mysql.jdbc.Driver"
    
    Private jdbcUrl As String = "jdbc:mysql://<url>/<databasename>"
    Private Username As String = "<username>"
    Private Password As String = "<password>"
    Private sSQL As String
    Private SQL1 As SQL

End Sub

Sub Service_Create
    'need to disable it as reading from large JdbcResultSet will cause network requests to be sent on the main thread.
    DisableStrictMode
End Sub

Sub Service_Start (StartingIntent As Intent)

End Sub

Sub DisableStrictMode
    Dim jo As JavaObject
    jo.InitializeStatic("android.os.Build.VERSION")
    If jo.GetField("SDK_INT") > 9 Then
        Dim policy As JavaObject
        policy = policy.InitializeNewInstance("android.os.StrictMode.ThreadPolicy.Builder", Null)
        policy = policy.RunMethodJO("permitAll", Null).RunMethodJO("build", Null)
        Dim sm As JavaObject
        sm.InitializeStatic("android.os.StrictMode").RunMethod("setThreadPolicy", Array(policy))
    End If
End Sub

Sub Connect As ResumableSub
    mysql.InitializeAsync("mysql", driver, jdbcUrl, Username, Password)
    Wait For MySQL_Ready (Success As Boolean)
    If Success = False Then
        ToastMessageShow ("Connection to database has failed, please try again.",False)
        Log("Check unfiltered logs for JDBC errors.")
    End If
    Return Success
End Sub

Sub CloseConnection
    mysql.Close
End Sub

Sub GetNewJobs As ResumableSub
    Wait For (Connect) Complete (Success As Boolean)
    If Success Then
        Try
            sSQL="SELECT * FROM statements_for_client WHERE (Client = " & Main.iUserID & " OR Client = 0) AND ID NOT IN (SELECT ID FROM statements_collected WHERE Client = " &  Main.iUserID & " ) ORDER BY Requested ASC  "
            
            Dim sf As Object = mysql.ExecQueryAsync("mysql", sSQL,Null)
            Wait For (sf) mysql_QueryComplete (Success As Boolean, Crsr As JdbcResultSet)
            If Success Then
                Do While Crsr.NextRow
                    Log(Crsr.GetString("Statement"))
                    Do While Crsr.NextRow
                        SQL1.ExecNonQuery(Crsr.GetString("Statement"))
                        sSQL="DELETE FROM importlog"
                        SQL1.ExecNonQuery(sSQL)
                        sSQL="INSERT INTO importlog (QID, Date) VALUES ('" & Crsr.getint("ID") & "', datetime())"
                        SQL1.ExecNonQuery(sSQL)
                        sSQL="INSERT INTO statements_collected(ID, Client, DeviceID) VALUES(" &Crsr.getint("ID") & "," & Main.iUserID & ",'" & MainOptions.sDeviceID & "')"
                        Dim sf1 As Object = mysql.ExecQueryAsync("mysql", sSQL,Null)
                        Wait For (sf1) mysql_QueryComplete (Success As Boolean)
                        If  Success Then
                            ToastMessageShow("Update to main database failed",False)
                        End If
                    
                    
                    Loop
                Loop
                Crsr.Close
            Else
                Log(LastException)
            End If
        Catch
            Success = False
            Log(LastException)
        End Try
        CloseConnection
    End If
    Return Success
End Sub

Sub Service_TaskRemoved
    'This event will be raised when the user removes the app from the recent apps list.
End Sub

'Return true to allow the OS default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
    Return True
End Sub

Sub Service_Destroy

End Sub