为什么用IFeatureWorkspace的CreateFeatureClass方法不能成功生成FeatureClass？

<P>如题。我用CreateFeatureClass方法曾做了一个小控件 A ，实现了选择sde数据中的任意范围并将其保存在sde中的功能。可是，同样的东西，当我重新做了另外一个相同控件 B  时，就不能实现这一功能。更令人不解的是，同样的sde数据，依次选择A、B进行操作，结果前者A顺利实现了功能，而后者B却未实现。相同的代码，相同的数据，怎么会出现这样的问题？？？</P>
<P>Dim pFact As IWorkspaceFactory<BR>Dim pWorkspace As IWorkspace</P>
<P>Set pFact = New SdeWorkspaceFactory<BR>Set pWorkspace = pFact.Open(pPropset, 0)<BR>Set pFeatureWorkspace = pWorkspace<BR>  <BR>  Set pClone = pInFeatureClass.Fields<BR>  Set pFields = pClone.Clone<BR>  MsgBox "111"</P>
<P><BR><FONT style="BACKGROUND-COLOR: #ffffff"><FONT color=#1a1ae6>  Set pNewFeatureClass = pFeatureWorkspace.CreateFeatureClass(strName, pFields, Nothing, Nothing, esriFTSimple, pInFeatureClass.ShapeFieldName, "")</FONT></FONT></P>
<P><FONT style="BACKGROUND-COLOR: #ffffff"><FONT color=#1a1ae6></FONT><BR></FONT>  MsgBox "222"<BR>  Set CreateNewShapefile = pNewFeatureClass</P>
<P>以上蓝字处是我找到的运行出错处，主要出错原因是这一步没执行，但它在控件A中却是顺利执行的。还请各位高手帮帮忙！！！ </P>

<P>另注：本人用的是ArcGIS8.3, VB+AO </P>

<FONT color=#1a1ae6>strName是不是没有变化，因为在同一个SDE库里不能出现同名的要素类。</FONT>

strName我是以时间为标识的，可以精确到秒。

把错误提示信息也贴出来看看。