strSql=" Select a.CodiceCli, a.Ragione, b.CodiceCli, idticket " & _
" FROM Anagrafica a, ticket b " & _
" where a.codicecli = b.codicecli AND b.codicecli = '" & cod & "' "