datagrid 某行显示背景颜色的问题

Dim sqlstr As String
Dim i As Integer
sqlstr = "select 考试号,考试项目,考试日期,审查日期,签证日期,有效日期,备注 from examrecord where 考试号='" & CStr(welderfile.Adodc1.Recordset.Fields(1)) & "'"
Adodc2.RecordSource = sqlstr
Adodc2.Refresh

Set DataGrid1(0).DataSource = Adodc2
While Not Adodc2.Recordset.EOF()
    If Adodc2.Recordset.Fields(5).Value < Date Then
     ？？？？？？？？？？？
    
    End If
    Adodc2.Recordset.MoveNext
Wend
DataGrid1(0).Refresh
请问一下：Adodc2.Recordset.Fields(5).Value < Date，？这个地方需要写datagrid1(0)的当前行（就是adodc2.recordset的当前行）有背景颜色，意思就是能够提醒这个日期小于当前系统日期，这个应该怎么写啊？谢谢各位，拜托，找了很多资料都没成功…… --------------------编程问答-------------------- 用MSHFlexGrid，datagrid似乎不能只改变个别行的着色

补充：VB ,  数据库(包含打印，安装，报表)