如何读取显示Geodatabase的所有图层？

<DIV >On Error GoTo EH<BR>    <BR>    Set m_pWorkspaceFactory = New SdeWorkspaceFactory<BR>    Set m_pPropSet = New PropertySet<BR><BR>    With m_pPropSet '设置ArcSDE连接属性<BR>        .SetProperty "SERVER", Server<BR>        .SetProperty "INSTANCE", Instance<BR>        .SetProperty "USER", User<BR>        .SetProperty "PASSWORD", Password<BR>        .SetProperty "VERSION", version '可选，缺省为SDE.DEFAULT版本<BR>    End With<BR>    <BR>    Set m_pWorkspace = m_pWorkspaceFactory.Open(m_pPropSet, 0)<BR>    Set m_pFeatureWorkspace = m_pWorkspace<BR>    <BR>    ''''''''''''''''''''''''''''''<BR>    Dim pSdeDSName As IDatasetName<BR>    Dim pEnumDSName As IEnumDatasetName<BR>    Set pEnumDSName = m_pWorkspace.DatasetNames(esriDTFeatureClass)<BR>    Set pSdeDSName = pEnumDSName.Next<BR>    ListFeature.Clear<BR>  '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''这里就能取出所有的名称<BR>    While Not pSdeDSName Is Nothing<BR>      ListFeature.AddItem pSdeDSName.name<BR>      Set pSdeDSName = pEnumDSName.Next<BR>    Wend<BR>    ''''''''''''''''''''''''''''''''''''''''<BR>    Exit Function<BR>EH:<BR>    MsgBox Err.Description, vbInformation, "加载数据错误"<BR>    ListFeature.Clear</DIV>