Private Sub Grid1_RowLoaded(ByVal nRow As Long, Item As sevDataGrid2.ListItem)
  With Item
    rsAnrede.Seek "=", Val(.CellText("AnredeID"))
    If Not rsAnrede.NoMatch Then
      .CellText("AnredeID") = rsAnrede.Fields("Anrede")
    Else
      .CellText("AnredeID") = ""
    End If
  End With
End Sub