求助 ARCGIS 开发 提示 自动化错误 ( Create_and_load_a_personal_geodatabaseVisual_Basic)

<P>此示例在9.0  中没问题。安装9.2 +sp2 或sp4 都无法执行。请高手赐教</P>
<P>红色代码出错</P>
<P>Private Sub CreateDatabase(databaseName As String, pWorkspace As IWorkspace)<BR>  ' Create a workspace factory<BR>  Dim pWorkspaceFactory As IWorkspaceFactory<BR>  Set pWorkspaceFactory = New AccessWorkspaceFactory<BR>  <BR>  ' Now create the database<BR>  Dim pProperty As IPropertySet<BR>  Set pProperty = New PropertySet<BR>  <BR>  Dim pWorkspaceName As IName<BR>  On Error GoTo Duplicate<BR>  Set pWorkspaceName = pWorkspaceFactory.Create(App.Path, databaseName, pProperty, 0)<BR>  <FONT color=#ff0033><STRONG>Set pWorkspace = pWorkspaceName.Open</STRONG></FONT><BR>  <BR>  Exit Sub<BR>Duplicate:<BR>  MsgBox Err.Description, vbExclamation + vbOKOnly, "Duplicate Database"<BR>  Err.Clear<BR>End Sub</P>