Android Question Google sheets API Key error

    Dim sSTR As String = "https://sheets.googleapis.com/v4/spreadsheets/" & sheetID & _
                        "?includeGridData=true&ranges=" & range
    oauth2.GetAccessToken
    Wait For OAuth2_AccessTokenAvailable (Success As Boolean, Token As String)
    If Success = False Then
        ToastMessageShow("Error accessing account.", True)
        Return
    End If
   
    Dim j As HttpJob
    j.Initialize("", Me)
   
    j.Download2(sSTR, Array As String("key", API_KEY))
    j.GetRequest.SetHeader("Authorization", "Bearer " & Token)

** Activity (main) Resume **
*** Service (httputils2service) Create ***
** Service (httputils2service) Start **
ResponseError. Reason: , Response: {
  "error": {
    "code": 400,
    "message": "Unable to parse range: LIST!i2:115?key=[API_KEY]",
    "status": "INVALID_ARGUMENT"
  }
}

Dim sSTR As String = "https://sheets.googleapis.com/v4/spreadsheets/" & sheetID & "?includeGridData=true&ranges=" & range

    oauth2.GetAccessToken
    Wait For OAuth2_AccessTokenAvailable (Success As Boolean, Token As String)
    If Success = False Then
        ToastMessageShow("Error accessing account.", True)
        Return
    End If
  
    Dim j As HttpJob
    j.Initialize("", Me)
j.Download(sSTR)

java.lang.RuntimeException: Object should first be initialized (List).

For Each rowvalues As List In values    'get row

    If j.Success Then
        Log(j.GetString)
        Dim parser As JSONParser
        parser.Initialize(j.GetString)
        Dim root As Map = parser.NextObject
        Dim sValues As List = root.Get("values")
        Dim cindex, rindex As Int
        
        Spn_Line.clear
        For Each rowvalues As List In sValues    'get row
            rindex=rindex+1
            'Log("row: " & rowvalues)

            For Each colvalues As String In rowvalues    'get column
                cindex=cindex+1
                Spn_Line.Add(colvalues)
                Log(colvalues)
                Log("rindex: " & rindex & "cindex: "&cindex)
            Next
            cindex = 0
        Next

'        Spn_Line.clear
'        For Each nm As NameAndMac In btDevices
'            Spn_Line.Add(nm.name)
'        Next

    End If
    j.Release

        Dim parser As JSONParser
        parser.Initialize(j.GetString)
        Dim root As Map = parser.NextObject
        Dim sheets As List = root.Get("sheets")
        For Each colsheets As Map In sheets
            Dim data As List = colsheets.Get("data")
            For Each coldata As Map In data
                Dim rowData As List = coldata.Get("rowData")
                For Each colrowData As Map In rowData
                    Dim values As List = colrowData.Get("values")
                    For Each colvalues As Map In values
                        Dim effectiveValue As Map = colvalues.Get("effectiveValue")
                        Dim stringValue As String = effectiveValue.Get("stringValue")
                        Spn_Line.Add(stringValue)
                    Next
                Next
            Next
        Next

java.lang.RuntimeException: Object should first be initialized (Map).

Dim stringValue As String = effectiveValue.Get("stringValue")

                        Dim effectiveValue As Map = colvalues.Get("effectiveValue")
                        If effectiveValue.IsInitialized Then
                            Dim stringValue As String = effectiveValue.Get("stringValue")
                            Spn_Line.Add(stringValue)
                        End If