Function PutanjaB()
Dim Db As Database
Dim Rs As Recordset
Dim Putanja As String

Set Db = CurrentDb
Set Rs = Db.OpenRecordset("SELECT database from MsysObjects WHERE Database<>Null")

If Rs.RecordCount > 0 Then
Putanja = Rs.Fields(0)
Do
Putanja = Mid(Putanja, 1, Len(Putanja) - 1)
Loop While Right(Putanja, 1) <> "\"
PutanjaB = Putanja
End If
End Function