Set pSdeWorkspaceFactory = New SdeWorkspaceFactory
Set pSdeWorkspace = pSdeWorkspaceFactory.Open(pConnectionProperties, 0)
Set pEnumDs = pSdeWorkspace.Datasets(esriDTAny)
Set pEnumDstt = pEnumDs.Next
' Set pEnumDSName = pSdeWorkspace.DatasetNames(esriDTFeatureDataset)
' Set pSdeDSName = pEnumDSName.Next
While Not pEnumDstt Is Nothing
List1.AddItem pEnumDstt.Name
Set pEnumDstt = pEnumDs.Next
Wend