Sub ListViewForDrikkeVarer_ItemClick (Position As Int, Value As Object)
Dim Plu As String
Dim TekstTilPlu As String
dbCursor=dbSQL.ExecQuery2("SELECT varetekst FROM drikkevarer WHERE plunummer = ?", Array As String(Value))
dbCursor.Position= 0 'will postion at the first record added by Mahares
Plu = dbCursor.GetString ("varetekst")
msgbox(Plu,"")
dbCursor.Close
End Sub