[求助]关于图层权限设置~~

<P>在VB+AO程序中怎样实现图层的权限设置，类似于ArcCatalog中的权限设置</P>
<P>Dim pSDEWorkspaceName As IWorkspaceName<BR>Dim pPropSet As IPropertySet<BR>Dim pFeatureClassName As IFeatureClassName<BR>Dim pDatasetName As IDatasetName<BR>Dim pSQLPriv As ISQLPrivilege</P>
<P>     Set pSDEWorkspaceName = New WorkspaceName<BR>     Set pPropSet = New PropertySet<BR>     With pPropSet<BR>        .SetProperty "SERVER", "LULU2"       '计算机名<BR>        .SetProperty "INSTANCE", 5151           '服务<BR>        .SetProperty "DATABASE", "sde"            '数据库名<BR>        .SetProperty "USER", "sde"                '用户名<BR>        .SetProperty "PASSWORD", "sde"              '密码<BR>        .SetProperty "VERSION", "SDE.DEFAULT"       '版本<BR>     End With</P>
<P><BR>     pSDEWorkspaceName.WorkspaceFactoryProgID = "esriDataSourcesGDB.SdeWorkspaceFactory.1"<BR>     pSDEWorkspaceName.ConnectionProperties = pPropSet<BR>             <BR>     Set pFeatureClassName = New FeatureClassName<BR>     Set pDatasetName = pFeatureClassName<BR>     pDatasetName.Name = "A_Control"<BR>     Set pDatasetName.WorkspaceName = pSDEWorkspaceName<BR>     MsgBox pDatasetName.Type<BR>     <BR>     If TypeOf pDatasetName Is ISQLPrivilege Then<BR>        Set pSQLPriv = pDatasetName</P>
<P>         '执行到这里的时候出错，希望高手帮助下~~<BR>        pSQLPriv.Grant "wang", esriSelectPrivilege + esriUpdatePrivilege, False<BR>    End If</P>

<P><BR> </P><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

<PRE>提示什么错误？</PRE><PRE>帮助里是在这样写的，应该没什么差别</PRE><PRE>If TypeOf pDatasetName Is ISQLPrivilege Then
  Dim pSQLPriv As ISQLPrivilege
  Set pSQLPriv = pDatasetName
  pSQLPriv.Grant "Scott" , esriSelectPrivilege + esriUpdatePrivilege, False
End If</PRE>

<P>提示-2147216021（8004156b）</P>
<P>自动化错误</P>

<P>不知道是不是我获取sde数据不对？请教斑竹~~看看是不是我的程序问题。</P>

<P>pDatasetName.Name = "A_Control"</P>
<P>这里图层名是对的吗，需要+ sde.吗</P>

<P>我加SDE试试</P>

<P>图层名没问题的。我加SDE.试了。 还是同样的问题。</P>
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" />

那用户权限够吗？

<P>sde是管理员的权限，我想把这个图层给wang这个用户设定权限，</P>
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />