Dim synt As String
Dim Lcurs As ResultSet
'----------------------------------
synt="SELECT * FROM pev WHERE Villes = '" & ValVille & "'"
Lcurs= Starter.SQL1.ExecQuery(synt)
Lcurs.Position=0
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> HERE THE RESULT APPEARS AND IT's CORRECT
Log("Lcurs " & Lcurs.GetString("LAT")) ' 34
Log("Lcurs " & Lcurs.GetString("LON")) ' 69
'>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> HERE THE RESULT IS 0 FOR THE TWO EditTexts
txtLat.Text=Lcurs.GetString("LAT") ' 0
txtLon.Text=Lcurs.GetString("LON") ' 0