A da li si pokušao taj .dll da registruješ i smestiš na lokaciju predviđenu za to.
( Start, Run, regsvr32 /s NazivBiblioteke.dll )

Ovako bi mogao

SADISKA = Application.CurrentProject.Path + "\putanja.txt"
dput = Dir(SADISKA)


If Len(dput) < 3 Then
MsgBox "NE POSTOJI " + SADISKA + " MORATE JE KREIRATI"
DoCmd.Quit
End If

Function PutReference(Imedll As String)
Dim Db As Database
Dim Ref As Reference
Dim PutanjaB As String
Dim PutanjaDLL As String


Set Db = CurrentDb


For Each Ref In References
If Imedll = Ref.Name Then
PutanjaB = Db.Name
PutanjaDLL = Ref.FullPath
If PutanjaB <> PutanjaDLL Then
MsgBox "Putanja nije ista ili nesto drugo"
'docmd.Quit
End If
End If
Next Ref


End Function
Function M_Path(PutanjaO) As String

Dim Db As Database, Putanja As String

On Error Resume Next
Set Db = DBEngine(0)(0)
Putanja = PutanjaO
Do Until Right$(Putanja, 1) = "\"
Putanja = Left$(Putanja, Len(Putanja) - 1)
Loop

Db_Path = Putanja
End Function

hvala vam !!
probacu ove sa source codom a onaj prvi da ubacim dll preko run u neki folder to mi ne treba to radi instalacija, pa dodju "strucnjaci" za kompiutere (neznaju ni dvoklik) i izbrisu taj dll i onda se baza sva poremeti (posto ovaj dll dosta toga drzi) probacu pa cu se javiti.