'-------------------------------------------------------------------
'VBA更改数据库默认文件夹
'作者：Grant
'论坛：www.accessbbs.cn
'日期：2007年5月27日
'环境：Windows XP + Access 2003 测试通过
'-------------------------------------------------------------------

Application 是Access的顶层对象.
Application 对象的 SetOption 和 GetOption 方法可用来指定或确定“选项”对话框中的设置。  


Dim Setpath As String
Setpath = "c:\"
SetOption "Default Database Directory", Setpath
MsgBox "成功设置［" & Setpath & "］数据库默认保存路径", vbInformation, "Grant温馨提示！"