vba如何获取coverage中的点线面各层？

<P>我现在只能获取coverage文件中的一层，如何获得其他各层啊，请高手指教！</P>
<P>代码如下：</P>
<P>  Dim pFeatureClass As IFeatureClass<BR>  Dim pPropset As IPropertySet<BR>  Set pPropset = New PropertySet</P>
<P>  Dim pFact As IWorkspaceFactory<BR>  Dim pAIWorkspace As IArcInfoWorkspace</P>
<P>              pPropset.SetProperty "DATABASE", sfile<BR>               Set pFact = New ArcInfoWorkspaceFactory<BR>               Set pAIWorkspace = pFact.Open(pPropset, 0)</P>
<P>               '获取图层<BR>               Dim pdataset As IDataset<BR>               Set pdataset = pAIWorkspace<BR>               Set pIEDataset = pdataset.Subsets<BR>               Dim pIEDataset2 As IEnumDataset<BR>               <BR>               Dim pdataset2 As IDataset<BR>               Set pdataset2 = pIEDataset.Next<BR>               <BR>               '获取层<BR>               <BR>               Set pFeatureClass = pdataset2.Subsets.Next'这里只能得到一个层，谁来帮帮我</P><img src="images/post/smile/dvbbs/em12.gif" />