请诸位分析一下创建GeometricNetwork的代码问题

<P>这段创建GeometricNetwork的代码是根据帮助一步一步做的.运行到最后一句加载不起来,请各位分析一下原因
Private Sub BuildGeometricNetwork()
'Dim pDataset As IDataset
Dim pFC As IFeatureClass
Dim pLayer As ILayer
Dim pFeatureLayer As IFeatureLayer
Dim pNetworkCollection As INetworkCollection
Dim pGeoNetwork As IGeometricNetwork
Dim pFDB As IFeatureDataset

Dim pNetLoader As INetworkLoader2
pNetLoader = New NetworkLoader


pLayer = Me.AxMapControl1.Map.Layer(0)
pFeatureLayer = pLayer
pFC = pFeatureLayer.FeatureClass
'Feature Dataset Name
pFDB = pFC.FeatureDataset
pNetLoader.FeatureDatasetName = pFDB.FullName

Select Case (pNetLoader.CanUseFeatureClass(pFC.AliasName))
Case esriNetworkLoaderFeatureClassCheck.esriNLFCCValid
pNetLoader.NetworkName = "water"
pNetLoader.NetworkType = esriNetworkType.esriNTUtilityNetwork
'set snap tolerance
Dim dMySnapTol As Double
dMySnapTol = 10
If dMySnapTol < pNetLoader.MinSnapTolerance Then
MsgBox("The proposed snap tolerance ")
Exit Sub
End If
pNetLoader.SnapTolerance = dMySnapTol

Dim u As New UID
pNetLoader.AddFeatureClass(pFC.AliasName, esriFeatureType.esriFTSimple, u, True)

pNetLoader.AddWeight("Length", esriWeightType.esriWTDouble, 0)
pNetLoader.AddWeightAssociation("Length", pFC.AliasName, pFC.LengthField.AliasName)

pNetLoader.LoadNetwork()

Case Else
MessageBox.Show("Can not create network!")
End Select

End Sub</P>

有bug？

<P>FeatureClass的 空间参考是否是一致的。</P><P>最近也再搞 network上的编辑，搞的头大。</P>