Public Sub ExecuteMap(SQL As SQL, Query As String, StringArgs() As String) As Map
Dim res As Map
'********** New position ***********
res.Initialize
'********************************
Dim cur As ResultSet
If StringArgs <> Null Then
cur = SQL.ExecQuery2(Query, StringArgs)
Else
cur = SQL.ExecQuery(Query)
End If
Log("ExecuteMap: " & Query)
If cur.NextRow = False Then
Log("No records found.")
Return res
End If
'********** Old position ***********
' res.Initialize
'********************************
For i = 0 To cur.ColumnCount - 1
res.Put(cur.GetColumnName(i).ToLowerCase, cur.GetString2(i))
Next
cur.Close
Return res
End Sub