1、http://www.foxtable.com/webhelp/scr/2375.htm
2、用代码,就这样写
Dim cat As New ADOX.CatalogClasscat.Create("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\test.mdb;Jet OLEDB:Engine Type=5")msgbox("完成")