开关shift的函数中用到的“currentdb”对象无法创建了！！！

tz-chf

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropvalue As Variant) As Integer
   Dim dbs As Object, prp As Variant
   Const conPropNotFoundError = 3270
   Set dbs = CurrentDb
   On Error GoTo Change_Err
   dbs.Properties(strPropName) = varPropvalue
   ChangeProperty = True
Change_Bye:
   Exit Function
Change_Err:
   If Err = conPropNotFoundError Then    ' Property not found.
       Set prp = dbs.CreateProperty(strPropName, varPropType, varPropvalue)
       dbs.Properties.Append prp
       Resume Next
   Else
       ' Unknown error.
       ChangeProperty = False
       Resume Change_Bye
   End If
End Function

这一段函数一直好用的（从2000用到2003了），突然发现不能创建对象了。在红色标出的那句停住，直接用currentdb也不行，好象是不认识currentdb了。但currentdb加“.”，下面的属性还是会自动弹出的。
重装office也不行。

tz-chf

刚才使用链接表管理器好象也这样。当时还没在意。

tz-chf

找到原因了：是因为卸载了阿里巴巴的贸易通，重新装上又没事了。

tmtony

因为DAO360.DLL版本不对,未注册不正常了
找一个DAO360.dll版本,重新注册一下应该正常了