Current Directory Value

i finally found the answer on the web. For those interested here is the code:

Function GetDBPath() As String
Dim MyDB As Database
Dim tempPath As String
Dim FileLen As Integer
' Set MyDB to the current database.
Set MyDB = CurrentDb()
' get the length of the db file name
FileLen = Len(dir(MyDB.Name, vbDirectory))
' trims off the db filename so the path is all that's left.
tempPath = Left(MyDB.Name, (Len(MyDB.Name) - FileLen))
' Return the path name
GetDBPath = tempPath
End Function