Predmet:Re: Code u Access2010

---

možda da staviš
Dim strBE As String
strBE = CurrentProject.Path & "\VBA_Rresh_Links_FunctionSAMPLE.accdb"
Set dbsCurrent = DBEngine.Workspaces(0).OpenDatabase(strBE)