eSQL = "SELECT Vorgang FROM DatenLager" & _
  "UNION SELECT Vorgang FROM DatenVorgang "

Private Sub Grid3_RowLoaded(ByVal nRow As Long, Item As ListItem)
 
  nVorgang = Grid3.Recordset.Fields("Vorgang").Value
 
  eSQL = "SELECT Vorgang FROM DatenVorgang" & _
 " WHERE (Vorgang = '" & nVorgang & "')" & _
  " ORDER BY Vorgang"
  Set rsVorhanden = oDB.OpenRecordset(eSQL)
  With Item
    If rsVorhanden.RecordCount > 0 Then
      .ForeColor = vbBlue
      .CellBold("Vorgang") = True
    End If
  End With
End Sub