Function LeggiRsWeb(Query As String) As ADODB.Recordset
Dim Rs As New ADODB.Recordset
Rs.CursorType = adOpenKeyset
Rs.LockType = adLockBatchOptimistic
Rs.CursorLocation = adUseClient
Rs.Open WebHost + "/percorso/GetXMLRecordset3.asp?Query=" & Query
Set LeggiRsWeb = Rs.Clone
Rs.Close
Set Rs = Nothing
End Function