aSQL = "SELECT ID, ZuganglNr, Vorgang, Lager, Erl, DatAus FROM DatenLager  _
      " WHERE (Erl = 0) AND (DatAus IS NOT NULL)" & _
      " ORDER BY ZugangNr"
 
Set oRs = oDB.OpenRecordset(aSQL) 
 
With Grid1
. . . 
  oRs.Close
  Set oRs = Nothing
End With

eSQL = "SELECT ID,  Vorgang, DatEin FROM DatenVorgang " 
Set oRs = oDB.OpenRecordset(eSQL)

Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As ListItem)
  With Item
 
    ' Prüfen ob Datensatz in Tabelle DatenVorgang enthalten ist
    ' wenn Ja blau färben
 
    If Grid1.Recordset.Fields("Vorgang")  ???????  Then
      .ForeColor = vbBlue
      .CellBold("Vorgang") = True
 
    End If
  End With
End Sub