Oppure
dataconvertita = Format(adoPrimaryRS(1), "mm/dd/yyyy") ControllaEstrazioni qq1, qq2, qq3, qq4, qq5, qq6, (dataconvertita)