Android Question Debug Issue

Sub_lsvTerritories_ItemClick

'very bad
SQL.ExecNonQuery("INSERT INTO table1 VALUES ('" & EditText1.Text & "'") 
'ugly, will break if there is an apostrophe in the text and vulnerable to SQL injections.

'very good
SQL.ExecNonQuery2("INSERT INTO table1 VALUES (?)", Array(EditText1.Text))

'   Determine If the Power's capital has been captured
'   If Territory.OrigPWR >= Germany And Territory.OrigPWR <= France Then
    If 13 < 11 Then
            bCapitalCaptured = Int2Bool(sqlDB.ExecQuerySingleResult("SELECT captured FROM Powers " & _
                                                            "WHERE Power = " & Territory.OrigPWR))
    End If

' Power takes a territory
Private Sub lsvTerritories_ItemClick (Position As Int, Value As Object)    
    Dim iChgPWR As Int
    Dim strTerrType As String
    Dim Territory As typTerritory
    
    Territory = Value    
    strTerr = ""
    ' Player already occupies this territory
    If Territory.PWR = iPower Then
        Information(strPower & " player already occupies " & _
                Chr(34) & Territory.Name & Chr(34) & ".")    
        Return
    ' Player from the same side occupies this territory
    Else If GetPowersSide(Territory.PWR) = GetPowersSide(iPower) Then
        Information("A Power on your side already occupies " & _
                Chr(34) & Territory.Name & Chr(34) & ".")
        Return
    ' Japan is not at war with the UK
    Else If iPower = Japan And Territory.PWR = Dutch And Not(bJapUKAtWar) Then
        Information("Japan is not allowed to attack a Dutch territory unless it " & _
                    "is at war with the United Kingdom and ANZAC.")
        Return
    End If
    strTerrType = GetPowerName(Territory.PWR)
    ' Confirm that Power has taken control of this Territory
    csMsgText.Initialize.Typeface(fntMsgNormal).Append("Confirm that ").Bold.Color(HiLite).Append(strPower).Pop.Pop
    csMsgText.Append(" has taken control of ").Typeface(fntMsgItallic).Append(Territory.Name).pop
    If strTerrType <> "Error" Then
        csMsgText.Append(" from ").Bold.Color(HiLite).Append(strTerrType).Pop.Pop.Append(".").popall
    Else        
        csMsgText.Popall
    End If
    tmpLogText.Text = csMsgText
    tmpLogText.mBase.Height = 140dip
    MsgDlg.PutAtTop = True
    Dim rsp As ResumableSub = MsgDlg.ShowTemplate(tmpLogText, "Yes", "No", "")
    Dim btnYes As B4XView = MsgDlg.GetButton(xui.DialogResponse_Positive)
    btnYes.SetBitmap(bmpBtnUp)
    Dim btnNo As B4XView = MsgDlg.GetButton(xui.DialogResponse_Negative)
    btnNo.SetBitmap(bmpBtnUp)
    Wait For (rsp) Complete (Result As Int)
    ' If not Return
    If Result = xui.DialogResponse_Negative Then Return
    lstTerr.Add(Territory.Name)
    iChgPWR = iPower
'    If Territory.OrigPWR = Germany Then
'        If Territory.OrigPWR <= France Then
'            Determine If the Power's capital has been captured
    If 13 < 11 Then
            bCapitalCaptured = Int2Bool(sqlDB.ExecQuerySingleResult("SELECT captured FROM Powers " & _
                                                            "WHERE Power = " & Territory.OrigPWR))        
            
'            End If
    End If
    ' Capturing and Liberating Capitals
    If Territory.Capital = "Y" Then
        ' Capturing a Capital
        If GetPowersSide(iPower) <> GetPowersSide(Territory.PWR) And _
           Not(bCapitalCaptured) Then
            iIPCsCapital = 0
            ' Set Power to Captured
            sqlDB.ExecNonQuery("UPDATE Powers SET captured = 1 " & _
                               "WHERE power = " & Territory.PWR)
            ' Transfer all unspent IPCs from the treasury of the of the Power's captured capital
            iIPCsCapital = sqlDB.ExecQuerySingleResult("SELECT ipcs FROM Powers " & _
                                                       "WHERE power = " & Territory.PWR)
            sqlDB.ExecNonQuery("UPDATE Powers SET ipcs = 0 " & _
                               "WHERE power = " & Territory.PWR)
            Information(GetCapitalName(Territory.PWR) & " has been overrun by " & strPower & _
                        ". " & GetPowerName(Territory.PWR) & iIPCsCapital & " IPCs have been " & _
                        "confiscated And it cannot receive IPCs Until its capital Is liberated.")
            ' Need to know if these capitals have been captured
            If Territory.PWR = Germany And iPower = SovietUnion Then
                bBerlinLiberated = True
            Else If Territory.Name = "United Kingdom" Then
                bLondonCaptured = True
                If Not(bGerUSSRAtWar) And Not(bGerUSAtWar) Then                    
                    bGerUSSRAtWar = True
                    bGerUSAtWar = True
                    sqlDB.ExecNonQuery("UPDATE GameDetails SET gerussr = 1 AND gerus = 1")
                    Information("The Soviet Union and the United States declares war on Germany " & _
                                "due To London being overrun.")
                End If
            End If
        ' Liberating a Capital
        Else If GetPowersSide(iPower) = GetPowersSide(Territory.OrigPWR) And _
             bCapitalCaptured Then
            iChgPWR = Territory.OrigPWR
            If Territory.OrigPWR = France Then bParisLiberated = True
            ' Set Power to Captured
            sqlDB.ExecNonQuery("UPDATE Powers SET captured = 0 " & _
                               "WHERE power = " & iChgPWR)                           
            Information(GetCapitalName(Territory.OrigPWR) & " has been liberated by the " & strPower & _
                        ". " & GetPowerName(Territory.OrigPWR) & _
                        " can now receive IPCs for all territories that it still controls.")
        End If
    End If
    ' Liberating a Territory
    ' If you capture a Territory that was originally controlled by another member of your side, 
    ' you “liberate” the Territory. You don’t take control of it; instead, the original controller 
    ' regains the Territory
    ' If the original controller’s (the Power whose Territory you just liberated) capital is in
    ' enemy hands AT THE END OF THE TURN in which you would otherwise have liberated the Territory,
    ' you capture the Territory instead.
    If iPower <> Territory.OrigPWR And _
       GetPowersSide(iPower) = GetPowersSide(Territory.OrigPWR) Then
           If Not(bCapitalCaptured) Then
            iChgPWR = Territory.OrigPWR
            Information(strPower & " has liberated territory " & Territory.Name)
        Else
            Information(strPower & " has taken control of territory " & Territory.Name & _
                        " whose capital is in enemy hands.")
        End If
    End If
    ' Get the territory's icon
    Dim pnl As Panel = lsvTerritories.GetPanel(Position)
    Dim img As ImageView = pnl.GetView(0)
    Select iChgPWR
        Case Germany
            img.Bitmap = bmpGermany
        Case Italy
            img.Bitmap = bmpItaly
        Case Japan
            img.Bitmap = bmpJapan
        Case UKEurope
            img.Bitmap = bmpUKEurope
        Case France
            img.Bitmap = bmpFrance
        Case SovietUnion
            img.Bitmap = bmpUSSR
        Case UnitedStates
            img.Bitmap = bmpUS
        Case UKPacific
            img.Bitmap = bmpUKPacific
        Case China
            img.Bitmap = bmpChina
        Case ANZAC
            img.Bitmap = bmpANZAC
    End Select
    Territory.PWR = iChgPWR
    sqlDB.ExecNonQuery("UPDATE Territories SET power = " & iPower & _
                       " WHERE name = '" & Territory.Name & "'")
    Information("The " & strPower & " Power" & " has taken control of territory " & Territory.Name)
    iTerrIPCs = iTerrIPCs + Territory.IPC
End Sub

'   Determine If the Power's capital has been captured
    If Territory.OrigPWR >= Germany And Territory.OrigPWR <= France Then
            bCapitalCaptured = Int2Bool(sqlDB.ExecQuerySingleResult("SELECT captured FROM Powers " & _
                                                            "WHERE Power = " & Territory.OrigPWR))
    End If

sqlDB.ExecQuerySingleResult("SELECT captured FROM Powers WHERE Power = " & Territory.OrigPWR)