[求助]利用读出的Spatial Reference创建Feature Dataset失败?

<P>小弟想实现这样一个功能:读取栅格文件的Spatial Reference,然后建立Geodatabase, Feature Dataset,  Feature Class</P>
<P>其中创建Feature Dataset时利用读出的Spatial Reference. 主要代码及问题如下:</P>
<P>'打开栅格文件，读取空间参考信息<BR>Private Sub btnOpenMap_Click()<BR>    Set pWorkspaceFactory = New RasterWorkspaceFactory<BR>    Set pRWs = pWorkspaceFactory.OpenFromFile(strFilePath, 0)   'strpath为栅格文件路径<BR>    Set pRasterDataset = pRWs.OpenRasterDataset(strFileName)<BR>    <BR>    Dim pRaster As IRaster<BR>    Set pRaster = pRasterDataset.CreateDefaultRaster<BR>    Set pRasterProp = pRaster<BR>    Set pSpaRef = pRasterProp.SpatialReference<BR>End Sub</P>
<P><BR>'创建featureDataset<BR>Private Sub newFeatureDataset_Click()<BR>    Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile(mdbLocation, 0)<BR>  Dim pSR As ISpatialReference<BR>    Set pSR = pSpaRef        <BR>    Set pFeatureDataset = pFeatureWorkspace.createFeatureDataset("features", pSR)<BR>End Sub<BR></P>
<P>为什么运行到Set pFeatureDataset = pFeatureWorkspace.createFeatureDataset("features", pSR)会报错,而我通过设定相关参数来设定一个pSR来执行时可以通过?<BR></P>

Set pSpaRef = pRasterProp.SpatialReference<BR>查看一下这个是不是得到了空间参考