Visual Basic

Private Sub factuurZoeken_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
       Try
           m_SelectedStyle = New DataGridViewCellStyle()
           m_SelectedStyle.BackColor = Color.LightBlue
           m_SelectedStyle.BackColor = SystemColors.Highlight
           DataGridView1.ReadOnly = True
           Dim SQLString As String = "SELECT id, bedrijfsnaam, startdatum, vervaldatum, omschrijving, netto, bruto, opmerkingen FROM Facturen"
           Dim DataSet As New DataSet()
           Dim OleDbDataAdapter As System.Data.OleDb.OleDbDataAdapter = New System.Data.OleDb.OleDbDataAdapter(SQLString, oleConn)
           oleConn.Open()
           OleDbDataAdapter.Fill(DataSet, "Facturen")
           DataGridView1.DataSource = DataSet.Tables("Facturen")
           'hier kleuren:
           DataGridView1.AutoResizeColumns()
           checkfactuurvervallen()
           oleConn.Close()
       Catch ex As Exception
           MessageBox.Show("Fout in Database : " & ex.Message)
           oleConn.Close()
       End Try

Private Sub checkfactuurvervallen()
        'kleur records indien vrij of niet(haal datum vandaag op)
        Try
            Dim vandaag As String = Today
            Dim i As Integer = 0
            For Each row As DataGridViewRow In DataGridView1.Rows
                If DataGridView1.Item(2, i).Value() > vandaag Then
                    DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.IndianRed
                ElseIf DataGridView1.Item(2, i).Value() < vandaag Then
                    DataGridView1.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
                End If
                i = i + 1
            Next
        Catch ex As Exception
            MessageBox.Show("Fout in kleuren aangeven : " & ex.Message)
        End Try
        'tot hier kleuren
    End Sub