textbox里 显示access数据库的路径 怎么查？？

怎么查数据库路径放到textbox里？求大神来一个语句啊。 查数据库路径的语句是什么啊？？？

 Public Function GetDBPath() As String
    GetDBPath = CurrentProject.Path & "\"
End Function

假设数据库"C:\mydb\mydb.mdb"

函数返回其路径： "C:\mydb\"