用ado修复压缩数据库出现异常 达人来 送风

用ado修复压缩数据库出现错误 达人来 送风
Accsee2000数据库   用的ADO
Private   Sub   Form_Load()
Adodc1.ConnectionString   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "   &   App.Path   &   "\Db1.mdb;Jet   OLEDB:Database   Password=enetbar;Persist   Security   Info=False "
Adodc1.RecordSource   =   "Select   *   From   Data "
Adodc1.Refresh
End   sub

Private   Sub   Command9_Click()
Adodc1.Recordset.Close
Set   Adodc1.Recordset   =   Nothing
Set   lole   =   CreateObject( "JRO.JetEngine ")
lole.CompactDatabase   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "   &   App.Path   &   "\Db1.mdb;Jet   OLEDB:Database   Password=123; ",   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "   &   App.Path   &   "\Db1.mdb;Jet   OLEDB:Engine   Type=4 "
End   Sub

当command9   click后  
显示标题 "adodc1 "   内容 "[Microsoft][ODBC驱动程序管理器]未发现数据源名称并且未指定默认驱动程序 "
点击以上消息确定后显示标题 "Microsoft   visual   basic "内容 "实时错误-2147467259(80004005)不能执行这项操作；在低版本的数据库中该版本的特性不可用 "

按照上面的提示是没发现db1.mdb  
把command9里的Password=123密码改成别的又显示密码不对，说明文件它已经找到

把command9里的
Adodc1.Recordset.Close
Set   Adodc1.Recordset   =   Nothing
取消又提示文件尝试打开的文件以被其它方式打开


[解决办法]
LZ说---
把command9里的
Adodc1.Recordset.Close
Set Adodc1.Recordset = Nothing
取消又提示文件尝试打开的文件以被其它方式打开
-----------------------------------
我以前也碰到过，当时是因为我一边运行着程序，同时该Access数据库也打开了，
所以提示文件尝试打开的文件以被其它方式打开