Dim DataOdierna As String = FormatDateTime(Now(), 2)
        Dim MyConnection As SqlConnection
        Dim MyCommand As SqlCommand
        Dim MyStrConn As String
        Dim SQLstring As String
        Dim MyDataReader As SqlDataReader
        'scrittura dell'istruzione SQL
        SQLstring = "SELECT SUM (R_Qta) AS Qta FROM TB_Commessa WHERE R_DataPrelievo LIKE '" & DataOdierna.ToString & "'"
        'Creazione esplicita delcomando
        MyCommand = New SqlCommand(SQLstring)
        'creazione esplicita della connessione
        MyConnection = New SqlConnection()
        'composizione della stringa di connessione
        MyStrConn = My.Settings.DbLaundryConnectionString
        MyConnection.ConnectionString = MyStrConn
        'apertura della connessione
        MyConnection.Open()
        'passaggio della connessione attiva all'oggetto command
        MyCommand.Connection = MyConnection
        'assegnazioni del comando SQL
        MyDataReader = MyCommand.ExecuteReader()
        MyDataReader.Read()
        Dim CapiIn As String = (MyDataReader.Item("Qta")).ToString
        LblCapiIn.Text = CapiIn
        MyDataReader.Close()
        MyConnection.Close()