Private Sub ReadData
Private intVar As Int
Private Query As String
Private Curs As Cursor
Query = "SELECT Age FROM Test"
Curs = DB.ExecQuery(Query)
Log("Curs.RowCount = " & Curs.RowCount)
Curs.Position=0 'YOU MUST ADD THIS LINE TOO
If Curs.RowCount > 0 Then
intVar = Curs.GetInt("Age")
Label1.Text = intVar
Else
Label1.Text ="Data not found"
End If
End Sub