Private Sub Form_Load()
  Dim sSQL As String
  Dim oRs As DAO.Recordset
  .........
.Icons.Add LoadPicture("c:\programme\sevDataGrid2\Access\icons\mail.ico")
.....

Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As Object)
  With Item
        If Grid1.Recordset.Fields("ktkTyp").Value = "Auftraggeber" Then
      ' Gesamte Datenzeile blau einfärben
      .ForeColor = vbBlue
 
         ' Falls EMail-Adresse vorhanden, Bildsymbol anzeigen
    If .CellText("ktkEmail") <> "" Then .CellImage("ktkEmail") = 1
    End If
 
 
  End With
............