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

小弟想实现这样一个功能:读取栅格文件的Spatial Reference,然后建立Geodatabase, Feature Dataset,  Feature Class

其中创建Feature Dataset时利用读出的Spatial Reference. 主要代码及问题如下:

'打开栅格文件，读取空间参考信息
Private Sub btnOpenMap_Click()
   Set pWorkspaceFactory = New RasterWorkspaceFactory
   Set pRWs = pWorkspaceFactory.OpenFromFile(strFilePath, 0)   'strpath为栅格文件路径
   Set pRasterDataset = pRWs.OpenRasterDataset(strFileName)
   
   Dim pRaster As IRaster
   Set pRaster = pRasterDataset.CreateDefaultRaster
   Set pRasterProp = pRaster
   Set pSpaRef = pRasterProp.SpatialReference
End Sub

'创建featureDataset
Private Sub newFeatureDataset_Click()
   Set pFeatureWorkspace = pWorkspaceFactory.OpenFromFile(mdbLocation, 0)
 Dim pSR As ISpatialReference
   Set pSR = pSpaRef        
   Set pFeatureDataset = pFeatureWorkspace.createFeatureDataset("features", pSR)
End Sub

为什么运行到Set pFeatureDataset = pFeatureWorkspace.createFeatureDataset("features", pSR)会报错,而我通过设定相关参数来设定一个pSR来执行时可以通过?