莫名错误?
shipL 2003-08-25 12:53:37 我做的程序前两天还好用没有问题,不知为什么今天运行的时候就提示:
实时错误“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系统的问题,还是程序的问题。
希望高手们能给我点提示,谢谢!