Cursor = ST.ExecQuery("Select * FROM Birds WHERE " & talen & " IS NOT NULL ORDER BY " & talen & " Asc")
lvNames.Clear
For i = 0 To Cursor.RowCount - 1
Cursor.Position = i
lvNames.AddSingleLine(Cursor.GetString(talen))
Next
Cursor.Close
End Sub
Sub lvNames_ItemClick(Position As Int, Value As Object)
vNaam = value
pnLV.Visible = False
StartActivity("Main")
Cursor = ST.ExecQuery2("Select ScientificName, NL, EN, ES, FR, DE, PT, IT, DK FROM Birds WHERE " & talen & " = ?", Array As String(vNaam))
Cursor.Position = 0
If Cursor.GetString2(0) <> Null Then
lblSC.Text = Cursor.GetString("ScientificName")
Else
lblSC.Text = "-"
End If