大伙儿帮忙看看这段代码！

‘ This example opens a ArcInfo coverage using
' a property set.

Dim pPropset As IPropertySet
Set pPropset = New PropertySet


' Path to the coverage workspace directory.
pPropset.SetProperty "DATABASE", "g:\\data\\waters"

' Open the coverage workspace.
Dim pFact As IWorkspaceFactory
Dim pWorkspace As IWorkspace

Set pFact = New ArcInfoWorkspaceFactory
Set pWorkspace = pFact.Open(pPropset, Me.hWnd)

Dim pFeatureWorkspace As IFeatureWorkspace
Set pFeatureWorkspace = pWorkspace

' Open the featureclass (coverage).
Dim pFeatureClass As IFeatureClass
Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass("lakes:polygon")


程序运行至：Set pWorkspace = pFact.Open(pPropset, Me.hWnd) 时出现错误：

run-time error '-2147467259(80004005)'
Automation error
unspecified error
这是Arcobjects所带帮助中的例子，不知道错在哪里？如果我把其中一个语句换为：
Set pFact = New PCCoverageWorkspaceFactory 时，
错误则将发生在最后一句上面！到底是哪里不对呀？
<img src="images/post/smile/dvbbs/em11.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em09.gif" /><img src="images/post/smile/dvbbs/em12.gif" />

' This example opens a ArcInfo coverage using
' a property set.

Dim pPropset As IPropertySet
Set pPropset = New PropertySet


' Path to the coverage workspace directory.
pPropset.SetProperty "DATABASE", "d:\\data\\CoverageData"

' Open the coverage workspace.
Dim pFact As IWorkspaceFactory
Dim pWorkspace As IWorkspace

Set pFact = New ArcInfoWorkspaceFactory
Set pWorkspace = pFact.Open(pPropset, Me.hWnd)

Dim pFeatureWorkspace As IFeatureWorkspace
Set pFeatureWorkspace = pWorkspace

' Open the featureclass (coverage).
Dim pFeatureClass As IFeatureClass
Set pFeatureClass = pFeatureWorkspace.OpenFeatureClass("parcels:polygon")