Dim SQLConnectionString As String
            Dim SQLConnection As New SqlConnection
            Dim dataset1 As New DataSet
            SQLConnectionString = My.Settings.DbLaundryConnectionString
            SQLConnection.ConnectionString = SQLConnectionString
            SQLConnection.Open()
            Dim cm As New SqlCommand
            cm.CommandText = "SELECT R_Categoria, R_Qta, R_BarCode, R_DataPrelievo, FROM TB_Commessa WHERE TB_IdCliente=" & IdClienteComboBox.SelectedValue
            Dim da As New SqlDataAdapter
            da.SelectCommand = cm
            da.SelectCommand.Connection = SQLConnection
            Dim tablename2 As String = "TB_Commessa "
            da.Fill(dataset1, tablename2)
            DataGridViewReport.DataSource = dataset1
            DataGridViewReport.DataMember = tablename2
            SQLConnection.Close()
            Dim Font As New Font(DataGridViewReport.DefaultCellStyle.Font.FontFamily, 15, FontStyle.Regular)
            Dim FontTestata As New Font(DataGridViewReport.DefaultCellStyle.Font.FontFamily, 12, FontStyle.Regular)
            Me.SuspendLayout()
            With Me.DataGridViewReport
                .RowHeadersVisible = False
                .AllowUserToAddRows = False
                .Columns("R_Qta").HeaderText = ("N°")
                .Columns("R_Qta").DefaultCellStyle.BackColor = Color.CornflowerBlue
                .Columns("R_Qta").DefaultCellStyle.ForeColor = Color.White
                .Columns("R_Qta").AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
                .Columns("R_Qta").DefaultCellStyle.Font = Font
                .Columns("R_DataPrelievo").HeaderText = ("Data In")
                .Columns("R_DataPrelievo").DefaultCellStyle.BackColor = Color.CornflowerBlue
                .Columns("R_DataPrelievo").DefaultCellStyle.ForeColor = Color.White
                .Columns("R_DataPrelievo").AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
                .Columns("R_DataPrelievo").DefaultCellStyle.Font = Font
                .Columns("R_BarCode").HeaderText = ("BarCode")
                .Columns("R_BarCode").DefaultCellStyle.BackColor = Color.Blue
                .Columns("R_BarCode").DefaultCellStyle.ForeColor = Color.White
                .Columns("R_BarCode").DefaultCellStyle.Font = Font
                .Columns("R_Categoria").HeaderText = ("Capo")
                .Columns("R_Categoria").DefaultCellStyle.BackColor = Color.Blue
                .Columns("R_Categoria").DefaultCellStyle.ForeColor = Color.White
                .Columns("R_Categoria").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
                .Columns("R_Categoria").DefaultCellStyle.Font = Font
                .Columns("R_Stato").Visible = False
                .ColumnHeadersDefaultCellStyle.Font = FontTestata
                'ordino in modo decrescente sa cazzi i culonna
                DataGridViewReport.Sort(.Columns("IdCommessa"), System.ComponentModel.ListSortDirection.Descending)

            End With