在access数据中，可以拆分数据库前台后。前台显示录入数据，后台存放数据。

获取当前数据库的路径和名称会经常需要用到

Dim db As DAO.Database
    Set db = CurrentDb
    MsgBox db.Name
    db.Close
    Set db = Nothing