Public Sub AddSDECoverageLayer()
Dim pWorkFact As IWorkspaceFactory2
Dim pFWorkspace As IFeatureWorkspace
Dim pFClass As IFeatureClass
Dim pFLayer As IFeatureLayer
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pAV As IActiveView
'Open Feature Class
Set pWorkFact = New SdeWorkspaceFactory
Set pFWorkspace = pWorkFact.OpenFromString("server=swfcln;instance=5151;user=sde;password=sde;version=sde.default", 0)
Set pFClass = pFWorkspace.OpenFeatureClass("cities")
'Create new layer
Set pFLayer = New FeatureLayer
Set pFLayer.FeatureClass = pFClass
pFLayer.Name = pFClass.AliasName
'Add layer to map
Set pMxDoc = ThisDocument
Set pMap = pMxDoc.FocusMap
Set pAV = pMap
pMap.AddLayer pFLayer
pAV.Refresh
End Sub