Dim DataOdierna As String = Today
        SQLstring = "SELECT SUM (R_Qta) AS Qta FROM TB_Commessa WHERE CONVERT(nvarchar,R_DataPrelievo,103) LIKE'" & DataOdierna.ToString & "%'"