请教：用ADOX生成空access数据库关闭的问题？

[pinkybs]

用ADOX生成空access数据库
Sub CreateDatabase()

Dim cat As New ADOX.Catalog
cat.Create ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb""
cat = Nothing

end sub
但这样生成Mdb数据库是打开着的,怎么关闭它呢?

[chenyuming2004]

Dim cat As New ADOX.Catalog
cat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\new.mdb")
cat = Nothing
GC.Collect()

[pinkybs]

回复人： chenyuming2004(这辈子我算是废了)
不行的 我试过了，mdb文件还是打开着,有临时文件.ldb

[chenyuming2004]

不会吧。
我这边试的时候按钮单击后
没有那个临时文件，窗体开着
还可以删除文件的。
你是不是还有其它操作。

[pinkybs]

我是在类里面写的这个,通过对象实例的函数调用,创建后就不能用其他函数调用删除了.

[chenyuming2004]

你把程序拿到其它地方独立运行看看有没有问题。
有可能是你实例化的类调用完后没有Dispose()。
你把你类实例使用完毕后Dispose()，再GC.Collect()
看看