Sub ExecuteRemoteQuery(Query As String, JobName As String)
Dim job As HttpJob
ProgressDialogShow("Obtendo dados...")
job.Initialize(JobName, Me)
job.PostString(sDBSvrHost, "UPDATE itens SET item = '" & etItem.Text.Trim & "', valor = '" & etValor.Text.Trim & "', descr = '" & etDescr.Text.Trim & "' WHERE itemid = " & sItID)
End Sub