Sub controlla_user
ProgressDialogShow("Attendere...")
ServerUrl ="https://www.xxxxxxxxxxx.info/xxxxxxxxx/prconnectdbxandroid.php"
Qry="Select pr99puntovendita FROM pr99utenti where pr99username=" & utente.Text & " and pr99password=" & password.Text
jobx.Initialize("Job0", Me)
jobx.PostString(ServerUrl, Qry)
End Sub