access2007另存时的问题

做了一个简单的access数据库，想把它另存为2003格式的时候，总提示“您尝试打开的数据库已被用户"xx"打开在"yy"机器上,请在数据库可用时再试。

经反复测试，发现问题的根源如下：

我写了一个autoexec宏，里面调用了一个子程序testado,其代码如下：

Dim record As New ADODB.Recordset Dim sql As String sql = "select * from 系统用户 " record.Open sql, CurrentProject.Connection record.Close Set record = Nothing MsgBox "ado测试成功!"

把这个函数的代码全部注释掉，然后重新打开，就不再出现该提示了，具体原因不详，但估计是数据库的连接未关闭造成？