Not sure what you mean by "current directory", but if you mean the directory the database is in then:
Function GetDBLocation() As String
Dim db As Database
Set db = CurrentDb
GetDBLocation = left(db.Name, Len(db.Name) - Len(Dir(db.Name)))
Set db = Nothing
End Function
will do the trick.
B ----------------------------------
Ben O'Hara
bo104@westyorkshire.pnn.police.uk
----------------------------------