Dim fc As IFeatureClass
Dim featLayer As IFeatureLayer
    
Dim pMxDoc As IMxDocument
Set pMxDoc = Application.Document

Dim wksf As IWorkspaceFactory
Set wksf = New CCustomWorkspaceFactory
    
Dim fwks As IFeatureWorkspace
Set fwks = wksf.OpenFromFile("c:\thefile", 0)
    
Set fc = fwks.OpenFeatureClass("thefeatureclass")
    
Set featLayer = New FeatureLayer
Set featLayer.FeatureClass = fc
featLayer.Name = fc.AliasName
pMxDoc.AddLayer featLayer

peWorkspace.StartEditOperation
          pFieldInt = pFeature.Fields.FindField(FieldName)
          prgUpdate.Value = prgUpdate.Min
          prgUpdate.Max = pSelSet.Count
          prgUpdate.Visible = True
               For y = 1 To pSelSet.Count
                    pFeature.Value(pFieldInt) = DomainChecker.FindValue(pFeature, FieldName, cmbValues)
                    pFeature.Store
                    Set pFeature = pFcursor.NextFeature()
                         If pSelSet.Count = 1 Then
                         ElseIf pSelSet.Count > 1 Then
                            prgUpdate.Value = x
                            frmAttributes.Refresh
                         End If
               Next
                 prgUpdate.Value = prgUpdate.Max
                 frmAttributes.Refresh
                 peWorkspace.StopEditOperation