AO+VB连接SDE出现问题

<P>我在连接SDE时用以下代码,但运行输入密码之后运行出错,提示"SDE not running on server"</P>
<P>Public Sub AddSDECoverageLayer()<BR>  Dim pWorkFact As IWorkspaceFactory2<BR>  Dim pFWorkspace As IFeatureWorkspace<BR>  Dim pFClass As IFeatureClass<BR>  Dim pFLayer As IFeatureLayer<BR>  <BR>  Dim pPropset As IPropertySet <BR>  Set pPropset = New PropertySet <BR>  With pPropset <BR>    .SetProperty "Server", m_SDEServerName <BR>    .SetProperty "Instance", m_SDEServerInst <BR>    .SetProperty "user", m_SDEServerUserName <BR>    .SetProperty "password", m_SDEServerPass <BR>    .SetProperty "Database", m_SDEDatabaseName<BR>    .SetProperty "version" , m_SDEVersionName <BR>  End With <BR>  <BR>  Set pWorkFact = New SdeWorkspaceFactory<BR>  Set pFWorkspace = pWorkFact.OpenFromString("pPropset", 0)<BR>  Set pFClass = pFWorkspace.OpenFeatureClass("cities")<BR>  <BR>  Set pFLayer = New FeatureLayer<BR>  Set pFLayer.FeatureClass = pFClass<BR>  pFLayer.Name = pFClass.AliasName<BR>  <BR>  MapControl1.AddLayer pFLayer<BR>  MapControl1.Refresh<BR>End Sub</P><img src="images/post/smile/dvbbs/em12.gif" />

用arccatalog能连接上吗？参数是如何的？

<P>能连上,参数都设对了.如果在Set pFWorkspace = pWorkFact.OpenFromString("pPropset", 0)<BR>语句中直接输入参数也能连上的.</P>
<P>不知是哪错了?</P>