I think it's complaining about the line continuation character actually.
try
q = DTSLookups("FiltroStoricoIdLotto_Lookup").Execute(DTSSource("Id"), DTSSource("Lotto"))
instead of
q = DTSLookups("FiltroStoricoIdLotto_Lookup")._
Execute(DTSSource("Id"), DTSSource("Lotto"))
In the beginning the Universe was created. This has made a lot of people very angry and has been widely regarded as a bad move. Douglas Adams (1952-2001)