Private Sub caricadb()

        Dim SQLConnectionString As String
        Dim SQLConnection As New SqlConnection
        Dim dataset1 As New DataSet
        SQLConnectionString = "sviluppo\SQLEXPRESS;Initial Catalog=DbLaundry;Integrated Security=True" 'QUI STRINGA DI CONNESSIONE
        SQLConnection.ConnectionString = SQLConnectionString
        SQLConnection.Open()
        Dim cm As New SqlCommand
        cm.CommandText = "SELECT R_Categoria,R_Qta,R_BarCode,R_Data FROM TB_Commessa"
        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 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_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_Data").HeaderText = ("Data")
            .Columns("R_Data").DefaultCellStyle.BackColor = Color.CornflowerBlue
            .Columns("R_Data").DefaultCellStyle.ForeColor = Color.White
            .Columns("R_Data").AutoSizeMode = DataGridViewAutoSizeColumnMode.ColumnHeader
            .Columns("R_Data").DefaultCellStyle.Font = Font
            .ColumnHeadersDefaultCellStyle.Font = FontTestata
            'ordino in modo decrescente sa cazzi i culonna
            DataGridViewReport.Sort(.Columns("IdCommessa"), System.ComponentModel.ListSortDirection.Descending)
            For i As Integer = 0 To DataGridViewReport.RowCount - 1
                If DataGridViewReport.Rows(i).Cells("R_Data").Value.ToString < CDate(TextBox1.Text) Then
                    DataGridViewReport.Rows(i).Cells("R_NumeroTroley").Style.ForeColor = Color.Aquamarine
                    MessageBox.Show("Scaduto")
                End If
            Next
        End With
    End Sub