莫名错误？

Question

我做的程序前两天还好用没有问题，不知为什么今天运行的时候就提示：
实时错误“429”
ActiveX 部件不能创建对象出问题的地方是：
Private Sub Command1_Click()
    Dim CopyMdb As FileSystemObject
    Dim BackupMdb As JRO.JetEngine
        Set CopyMdb = New FileSystemObject
        Set BackupMdb = New JRO.JetEngine程序停在 Set BackupMdb = New JRO.JetEngine
不知是windows系统的问题，还是程序的问题。
希望高手们能给我点提示，谢谢！

Answer 1

把涉及到的dll文件重新注册一下

Answer 2

添加引用Microsoft Jet and Replication Objects 2.5 Library

Answer 3

对rainstormmaster：
多谢 重新注册后问题解决！接分吧