Function PutanjaLInka()
Dim Db As Database
Dim Rs As Recordset
Dim SQL As String

SQL = "SELECT TOP 1 Database FROM MSysObjects " _
& "WHERE Database Is Not Null"

Set Db = CurrentDb

Set Rs = Db.OpenRecordset(SQL)
If Rs.RecordCount > 0 Then
PutanjaLInka = Rs.Fields(0)
Else
MsgBox "Nema linkovanih tabela"
End If
End Function