AO连接SDE问题?

<P>我用以下的代码实现与SDE的连接.但现在我想自己定义服务器参数输入框,text1输入ServerName,text2输入ServerInst,text3输入ServerUserName,text4输入ServerPass,text5输入DatabaseName,list1选择VersionName,应该如何修改语句?我把具体的参数改成text1.text但不能运行.请帮忙</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", "202.168.1.2" </P>
<P>    .SetProperty "Instance", 5151 <BR>    .SetProperty "user", sde </P>
<P>    .SetProperty "password", sde <BR>    .SetProperty "Database", yngis <BR>    .SetProperty "version", "SDE.DEFAULT" <BR>  End With<BR>  <BR>  Set pWorkFact = New SdeWorkspaceFactory<BR>  Set pFWorkspace = pWorkFact.Open(pPropset, 0)<BR>  Set pFClass = pFWorkspace.OpenFeatureClass("SDE.hydnt_arc")<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" />

不能运行，出现什么错误？

<P>我再试试看.<BR></P>

<P>我已经连接成功了。可我还要列出数据库中数据的列表？</P>

<P>那你就一个个访问就是！</P>

<P>要怎么一个个访问?数据库中的数据是动态的</P>

<P>那你就用个TIMER定时刷新数据不就行了!</P>

不懂?