Private Sub AddFeatureClass() 
Dim pMxDoc As IMxDocument 
Dim pMap As IMap 
Dim pWorkspaceFactory As IWorkspaceFactory 
Dim pFeatureWorkspace As IFeatureWorkspace 
Dim pFeatureLayer As IFeatureLayer 
Dim pFeatureClass As IFeatureClass 

'Specify the workspace and the feature class 
Set pWorkspaceFactory = New ShapefileWorkspaceFactory 
Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile("G:\Alaska_data\", 0) 
Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass("AK_quakesprj") 

'Prepare a feature layer 
Set pFeatureLayer = New FeatureLayer 
Set pFeatureLayer.FeatureClass = pFeatureClass 
pFeatureLayer.Name = pFeatureLayer.FeatureClass.AliasName 

'Add the feature layer to the active map 
Set pMxDoc = ThisDocument 
Set pMap = pMxDoc.FocusMap 
pMap.AddLayer pFeatureLayer 

'Refresh the active view 
pMxDoc.ActiveView.Refresh 
End Sub