如:Dim cat1 As ADOX.Catalog
    Set cat1 = New ADOX.Catalog
执行到Set cat1 = New ADOX.Catalog就报错,是什么原因呢?