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

On Error GoTo Error_ReferenceFromFile 
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

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