Dim Q1 As QueryDef
   S1 = ""
   S1 = S1 + "DELETE "
   S1 = S1 + "FROM  TABELLA "
   S1 = S1 + "WHERE ANNO = " + Periodo
   '***S1 = S1 + "  AND TRIM(MAGAZZINO) = 'HK1'"
   Set Q1 = gdtb.QueryDefs("qEliminaStock")
   Q1.Connect = "ODBC;DSN=NOMEODBC;UID=USERID;PWD=PASSWORD;DBQ=NOMEDB;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=F;PFC=10;TLO=0"
   Q1.SQL = S1
   Q1.Close