Dim mylen As String
Dim stroka As String, mypos As Integer, myi As Integer

mylen = CurrentDb.Name
stroka = "\"
mypos =  1 

While mypos >  0 
   myi = mypos
   mypos = InStr(myi +  1 , mylen, stroka,  1 )
Wend
putDB = Left(mylen, myi) & "test.mdb"

End Function


Function ReferenceFromFile(strFileName As String) As Boolean
Dim ref As Reference

On Error GoTo Error_ReferenceFromFile
MsgBox strFileName
Set ref = References.AddFromFile(strFileName)
' strFileName- òðåáóåìûé ôàéë
ReferenceFromFile = True

Exit_ReferenceFromFile:
Exit Function

Error_ReferenceFromFile:
MsgBox Err & ": " & Err.Description
ReferenceFromFile = False
Resume Exit_ReferenceFromFile
End Function