主题：使用access数据库

Dim objJRO = CreateObject("JRO.JetEngine")
Dim strS As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\foxtable\商业版\CaseStudy\test.MDB"
Dim strD As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\test.MDB"
objJRO.CompactDatabase(strS, strD)
msgbox("ok")

或者

http://www.foxtable.com/webhelp/scr/1272.htm

http://www.cnblogs.com/fyen/archive/2011/01/18/1938707.html