vas a tener que recorrer tu datasource y verificar antes de armar la grilla.
Dim TabTemp As New DataTable
Dim Row As DataRow
Dim RowAdd As DataRow
'Dt es tu tabla ya cargada de tu BD ok
TabTemp.Columns.Add(New DataColumn("Id", GetType(Integer)))
TabTemp.Columns.Add(New DataColumn("Fecha", GetType(String)))
For Each Row In dt.Rows
RowAdd = TabTemp.NewRow
If FaltaUnDia(Row("Fecha")) Then
RowAdd("Id") = "<img src=""TuSemaforoRojo.jpg"" width=70% border=0>"
End If
If FaltaDosDia(Row("Fecha")) Then
RowAdd("Id") = "<img src=""TuSemaforoAmarillo.jpg"" width=70% border=0>"
End If
If FaltaTresDia(Row("Fecha")) Then
RowAdd("Id") = "<img src=""TuSemaforoVerde.jpg"" width=70% border=0>"
End If
RowAdd("Fecha") = Row("Fecha").ToString.Trim
'agregas el row nuevo
TabTemp.Rows.Add(RowAdd)
Next
TuGrilla.DataSource = TabTemp
TuGrilla.DataBind()