iOS Question Convert JSON

Dim a As Map
Dim alist As List
a.Initialize
alist.Initialize

ResultSet1 = SQL1.ExecQuery("SELECT * FROM LOG")
    Do While ResultSet1.NextRow
    a.Put("ScoreLogID",ResultSet1.GetInt("LogID"))
    a.Put("QuestionItem",ResultSet1.GetInt("QuestionItem"))
    alist.Add(a)
Loop
ResultSet1.Close
Dim jssonp As JSONGenerator
jssonp.Initialize(a)
sname=jssonp.ToString
Log(sname)

Dim ListMap As Map
For i = 0 To alist.Size - 1
    ListMap = alist.Get(i)
    Log(ListMap.Get("LogID"))
Next

Dim alist As List
alist.Initialize

ResultSet1 = SQL1.ExecQuery("SELECT * FROM LOG")
    Do While ResultSet1.NextRow
    Dim a as Map
    A.initialize
    a.Put("ScoreLogID",ResultSet1.GetInt("LogID"))
    a.Put("QuestionItem",ResultSet1.GetInt("QuestionItem"))
    alist.Add(a)
Loop
ResultSet1.Close
Dim jssonp As JSONGenerator
jssonp.Initialize2(alist)
sname=jssonp.ToString
Log(sname)

Do While ResultSet1.NextRow
 Dim a As Map = CreateMap("ScoreLogID": ResultSet1.GetInt("LogID"), "QuestionItem": ResultSet1.GetInt("QuestionItem"))
 alist.Add(a)
Loop