Well Howdy Folks, I think I was trying to do to much. UVRenderer is for multiple attributes in one field or column, if Im not mistaken. I could get things to renderer but not display. So plan B, everybody has to have a plan b. I decided to query by date range from the most recent entry (date) and export out to file geodatabase and then load back into arc map and then use the simple renderer. Works much better and not much of a load from the query. So heres what I did... '/////////////////////////////START OF 30 OR LESS Dim feature10Layer As IFeatureLayer = New FeatureLayerClass feature10Layer.FeatureClass = feature10InspectClass feature10Layer.Name = "Treatments" feature10Layer.Visible = True Dim feature10InspectSelection As IFeatureSelection = TryCast(feature10Layer, IFeatureSelection) ' Dynamic Cast Dim query10Filter As IQueryFilter = New QueryFilterClass ' Dim Day10Filter As String = "WHERE [InspectionDate] in (SELECT max([InspectionDate]) FROM VECTOR.SDE.PolyInspection GROUP BY [SourceSiteID]) AND InspectionDate > Current_TimeStamp -30 and InspectionDate < Current_TimeStamp" Dim feat10Selection As IFeatureSelection = feature30Layer query10Filter.WhereClause = Day10Filter feat10Selection.SelectFeatures(query10Filter, esriSelectionResultEnum.esriSelectionResultNew, False) feat10Selection.SelectionChanged() Dim selection10Set As ISelectionSet = feat10Selection.SelectionSet Dim feat10Cursor As IFeatureCursor = Nothing selection10Set.Search(Nothing, True, feat10Cursor) Dim pIn10Workspace As IFeatureWorkspace pIn10Workspace = workspaceFactory.Open(propertySet, 0) pFeatureClass = pIn10Workspace.OpenFeatureClass("VECTOR.SDE.PolyInspection") pDataSet = pFeatureClass pDatasetName = pDataSet.FullName pathExport = "c:\GISDATA\Inspection" pOutWorkspaceFactory = New ESRI.ArcGIS.DataSourcesGDB.FileGDBWorkspaceFactory pOutWorkspace = pOutWorkspaceFactory.OpenFromFile(pathExport & "\Inspect.gdb", 0) pOutWorkspaceDataset = pOutWorkspace pOutWorkspaceName = pOutWorkspaceDataset.FullName pOutDatasetName = New FeatureClassName pOutDatasetName.Name = "Under30" pOutDatasetName.WorkspaceName = pOutWorkspaceName Try Dim pFeatWorkSpc As IFeatureWorkspace pFeatWorkSpc = pOutWorkspace Dim pfeatClass As IFeatureClass pfeatClass = pFeatWorkSpc.OpenFeatureClass("Under30") Dim pdaset As IDataset pdaset = pfeatClass pdaset.Delete() Catch exy As Exception ' if it doesnt exist then thats OK End Try 'Dim pExportOperation As IExportOperation pExportOperation = New ExportOperation pExportOperation.ExportFeatureClass(pDatasetName, query10Filter, selection10Set, Nothing, pOutDatasetName, 0) feat10Selection.Clear() pOutWorkspaceName = Nothing featSelection = Nothing pExportOperation = Nothing selectionSet = Nothing pFeatureClass = Nothing pDataSet = Nothing pDatasetName = Nothing '/////////////////////////////////////END OF THIRTY DAY OR LESS '//////////////////START 30 DAY OR LESS ' Use the IFeatureWorkspace interface to open a feature class. Dim featureGDBWorkspace As IFeatureWorkspace = CType(workspaceGDB, IFeatureWorkspace) Dim featureClass As IFeatureClass = featureGDBWorkspace.OpenFeatureClass("Under30") Dim p10Layer As IFeatureLayer = New FeatureLayerClass p10Layer.FeatureClass = featureClass p10Layer.Name = "Under30" p10Layer.Visible = True Dim pSimRend As ISimpleRenderer pSimRend = New SimpleRenderer Dim pGeoLay As IGeoFeatureLayer Dim PFS As ISimpleFillSymbol PFS = New SimpleFillSymbol With PFS .Style = esriSimpleFillStyle.esriSFSHollow Dim pcOL As IColor pcOL = New RgbColor Dim pLineSym As ILineSymbol = .Outline pLineSym.Width = 1.25 pcOL.RGB = RGB(0, 255, 0) pLineSym.Color = pcOL .Outline = pLineSym End With pGeoLay = p10Layer pSimRend.Label = "Under30" pSimRend.Symbol = PFS pGeoLay.Renderer = pSimRend activeView.FocusMap.AddLayer(p10Layer) p10Layer = Nothing pSimRend = Nothing pGeoLay = Nothing '///////////////////END OF 30 DAY OR LESS