Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As Object)
    With Item
      If .CellText(1) = "bestimmer Wert" Then
      .CellForeColor(Spalte_Y) = vbRed
    End If
  End With
End Sub

 
' Datenbank öffnen
  Set oDB = DBEngine.OpenDatabase(CurrentDb.Name)
 
  ' SQL-Abfragestring
  sSQL = "SELECT * FROM auswertung_kreuztabelle"
 
  ' Recordset erstellen
  Set oRS = oDB.OpenRecordset(sSQL)
 
'Recordset zuweisen
Set .Recordset = oRS