access vba 如何获取当前数据库文件的路径(数据库与程序已分离)

access vba 如何获取当前access数据库文件的路径(数据库与程序已分离)

Function GetFilePath(strFileName) As String

'返回路径名称
Dim I As Integer


For I = Len(strFileName) To 1 Step -1
If Mid$(strFileName, I, 1) = "\" Then
GetFilePath = Mid$(strFileName, 1, I)
Exit Function
End If
Next I

GetFilePath = strFileName

End Function

不好意思，可能没说清，我的db文件的路径可能会变的(即事先不知道路径)，所以我想要获取db文件的路径，我现在用的是Application.CurrentProject.Path，但这个只能获取当前工程的路径，我要的是分离后的数据库文件的路径(工程文件在客户机上，而数据库文件在服务器上)