Shapefile created with vb.net addin attributes blank until exiting arcmap. Help

BobFolsom

I have created a shapefile using the code below.  The addin tosses no errors and the shapefiles show up in Arccatalog with the geography viewable in the preview window.  However if you preview the table the attribute items are listed but no attributes populated.  If I exit the arcmap with the add in low and behold the attributes get populated.  This code has worked before using vb and arcobjects from withing arcmap converting it to a ARCGIS addin now using vb.net.  any suggestions

Public Sub ExportFc_Arc(ByVal txtType As String, ByVal txtAco As String)
        On Error GoTo ErrorHandler
        'Export selected Arc features to a new shapefile
        Dim pFLayer As IFeatureLayer
        Dim pFc As IFeatureClass
        Dim pInFeatureClassName As IFeatureClassName
        Dim pDataset As IDataset
        Dim pInDSName As IDatasetName
        Dim pFSel As IFeatureSelection
        Dim pSelSet As ISelectionSet
        Dim pFeatureClassName As IFeatureClassName
        Dim pOutDatasetName As IDatasetName
        Dim pWorkspaceName As IWorkspaceName
        Dim pExportOp As IExportOperation

        'Get the first layer in the map to be exported
        pdoc = My.ArcMap.Document
        pFLayer = pdoc.FocusMap.Layer(intArcLocation)
        pFc = pFLayer.FeatureClass

        'Get the Featureclassname from the featureclass
        pDataset = pFc
        pInFeatureClassName = pDataset.FullName
        pInDSName = pInFeatureClassName

        'Get the selected features
        pFSel = pFLayer
        pSelSet = pFSel.SelectionSet

        'Define the output featureclass
        'give it the name of the input feature class + exp
        pFeatureClassName = New FeatureClassName
        pOutDatasetName = pFeatureClassName
        pOutDatasetName.Name = txtType & "Arc" & "_" & txtAco
        pWorkspaceName = New WorkspaceName
        pWorkspaceName.PathName = "\\something\assessor\GIS\SegProgram"
        pWorkspaceName.WorkspaceFactoryProgID = "esriCore.shapefileworkspacefactory.1"
        pOutDatasetName.WorkspaceName = pWorkspaceName
        'Give the output shapefile the same props as the input dataset
        pFeatureClassName.FeatureType = pFc.FeatureType
        pFeatureClassName.ShapeType = pFc.ShapeType
        pFeatureClassName.ShapeFieldName = pFc.ShapeFieldName

        'Export selected features
        pExportOp = New ExportOperation
        pExportOp.ExportFeatureClass(pInDSName, Nothing, pSelSet, Nothing, pOutDatasetName, 0)
                Exit Sub
ErrorHandler:
        MsgBox("ExportFC_Arc Routine: " & Err.Description)
    End Sub

D_Hornby_ddh_uni

An alternate approach is to call the existing Select geoprocessing tool, this will honor selections. Search the forum for IGeoProcessor to find out how to call existing geoprocessing tools from within VB .net.