Android Question KeyValueStore

    xui.SetDataFolder("kvs")
    kvs.Initialize(xui.DefaultFolder, "kvs.dat")
    kvs.Put("time", DateTime.Now)

    Public kvs As KeyValueStore
    kvs.Initialize("H:\B4J\Projetos\AtualizarDadosKVS\", "datastore2.dat")
    Root = Root1
    Root.LoadLayout("MainPage")
    Dim FileName As String = "lista.json"
    Dim TargetDir As String = "H:\B4J\Projetos\AtualizarDadosKVS\"
    Dim ajson As String = File.ReadString( TargetDir,FileName)
    Dim parser As JSONParser
    parser.Initialize( ajson )
    Dim MapJson As Map = parser.NextObject
    Dim myMap As Map 'mapa auxiliar para navegação
    Dim ListaDados As List
    myMap = MapJson.Get("tudo")
    ListaDados = myMap.Get("dados")
    For i = 0 To ListaDados.Size - 1
        myMap = ListaDados.Get(i)
        kvs.Put(myMap.Get("Numero"), "{'data':"&"'"&myMap.Get("data")&"'"&","&"'lista'"&":"& myMap.Get("lista")&"}")
        If myMap.Get("Numero") = "2303" Then
'            Exit
        End If
        Log(myMap.Get("Numero")&"  "&myMap.Get("data")&"  "&myMap.Get("lista"))
    Next