Android Question [SOLVED] KeyValueStore : missing key // default values

' Similar to GetSimple but it creates the Key field,
' if it does not already exists, writing the Default value.
Public Sub GetSimple2(Key As String, Default As Object) As String
    Dim c As Cursor = getCursor(Key)
    If c.RowCount = 0 Then
        c.Close
        PutSimple(Key, Default)
        Return Default
    End If
    c.Position = 0
    Dim res As String = c.GetString2(0)
    c.Close
    Return res
End Sub

' Sub inside the activity where the type is accessed - if the line or the file does not exist, they are created on the fly

Sub MySub
Dim tempRank As String
    For dayLoop=1 To 7
      tempRank=dayLoop
      Dim myLine As TypeI ' here is a type with the status of the scheduled line and start + end hours
      myLine.Initialize
      kvs.Initialize(File.DirInternal, "schedule.db") 
      myLine=kvs.GetEncryptedObject(tempRank,myPass)
     
        If myLine=Null Then
           FixLine(tempRank)
           Exit
        Else
             'Do Something
        End If
     Next
End Sub

Sub FixLine(rank as String)
  Dim myLine As TypeI ' the same type as before
  myLine.Initialize  
  myLine.status=False
  myLine.start="00:00"
  myLine.end="00:00"

  ' kvs.Initialize(File.DirInternal, "schedule.db")
  kvs.PutEncyptedObject(rank,myLine,myPass)
  MySub
End Sub