关于用代码关闭MDB文件的问题

一点通

Dim MyXL As Object

Set MyXL = GetObject("D:\db1.mdb")  '将D:\db1.mdb修改为你的路径及文件名
MyXL.Application.Quit
Set MyXL = Nothing

一点通

Dim MyXL As Object
Dim strDB As String     ' 将字符串初始化为数据库的路径。
strDB = CurrentProject.Path & "\db2.mdb"

Set MyXL = GetObject(strDB)
MyXL.Application.Quit
Set MyXL = Nothing