Dim query As String ' aggiorna la lista delle domande risposte
Dim query As String = "UPDATE `tb01` SET `ms_gpt_01_05` = '" & ls.Get(2).As(String).Trim.Replace("'","\'") & "', `ms_gpt_01_07` = 'true', tockenQ='" & q & "', tockenA='" & a & "', tockenQA='" & qa & "' WHERE `ms_gpt_01_01` = '" & ls.Get(0) & "';"
ExecuteRemoteQuery(query,"UpdateRecord")