Map not Initialized on return of Dbutils.ExecuteMap

QueryResults.Initialize

Sub FindSalebyUPC(whatupc As String)
   Dim sqlcmd As String
   Dim QueryResults As Map
   Log("Sales:FindSalebyUPC: Searching for " & whatupc)
   
   If (QueryResults.IsInitialized)= False Then
      QueryResults.Initialize
   End If
   sqlcmd = "select * from items_sold, sales where sales.id = sales_id AND upc ='" & whatupc &"'"
   QueryResults = DBUtils.ExecuteMap(Main.SQL,sqlcmd,Null)
   If QueryResults = Null Then
      Msgbox("No sale found for that UPC", "E R R O R")
   Else
      lblSalesId.Text = QueryResults.Get("sales_id")
      lblDtTm.Text = QueryResults.Get("date")
      ShopCartLoad
      edtTender.Text = QueryResults.Get("amttender")
      lblPaidby.Text = QueryResults.Get("paidby")
      edtUpc.requestfocus()
   End If
   Return
   
End Sub

Sub ExecuteMap(SQL As SQL, Query As String, StringArgs() As String) As Map
   Dim cur As Cursor
   If StringArgs <> Null Then 
      cur = SQL.ExecQuery2(Query, StringArgs)
   Else
      cur = SQL.ExecQuery(Query)
   End If
   Log("DBUtils:ExecuteMap: " & Query)
   If cur.RowCount = 0 Then
      Log("DBUtils:ExecuteMap: No records found.")
      Return Null
   End If
   Dim res As Map
   res.Initialize
   cur.Position = 0
   For i = 0 To cur.ColumnCount - 1
      Log("DBUtils:ExecuteMap: Results(" & i & "):" & cur.GetColumnName(i) & "=" & cur.GetString2(i))
      If cur.GetString2(i) = Null Then
         Log ("DBUtils:ExecuteMap: value is null")
      End If
      res.Put(cur.GetColumnName(i).ToLowerCase, cur.GetString2(i))
   Next
   cur.Close
   Return res
End Sub

If QueryResults = Null Then

If QueryResults.IsInitialized = False Then