主题：[求助]access数据库压缩和修复

 压缩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")

 压缩字符串自己定义，压缩完毕以后，你可以删除strS，然后用strD替换掉它。