Private Sub sevAuftrage_RowLoaded(ByVal nRow As Long, Item As _
  sevDataGrid2.ListItem)
    Dim oRs As New ADODB.Recordset
    With oRs
    .CursorLocation = adUseClient
    .Open "SELECT Count(Firma) FROM Ruesten WHERE Firma = '" & Item.CellText( _
      "Firma") & "'", _
      conRuesten, adOpenForwardOnly, adLockOptimistic
      If .RecordCount > 0 Then
        If .Fields(0) > 1 Then
          Item.BackColor = &HFF00&
        End If
      End If
      .Close
    End With
    Set oRs = Nothing

Danke Euch und Gruss
Dany