Есть файл Access, который является хранилищем таблиц Tables_Stock.mdb,
другой файл Access использует линк на эту таблицу. При переносе баз на другой компьютер линки утрачиваются. В поиске по форуму нашел такую вот функцию, но не знаю куда ее прикрутить.Пробовал прикрутить в Form_Load главной формы но не помогает. Может кто знает.А?

Private Function RefreshLinks()
Dim dbs As Database
Dim tdf As TableDef
strFileName = CurrentProject.Path & "\Tables_Stock.mdb"
Set dbs = CurrentDb
For Each tdf In dbs.TableDefs
If Len(tdf.Connect) > 0 Then
tdf.Connect = ";DATABASE=" & strFileName
Err = 0
On Error Resume Next

tdf.RefreshLink
If Err <> 0 Then
RefreshLinks = False
Exit Function
End If
End If
Next tdf
RefreshLinks = True
End Function

Все.Помогает.Это я ее не в том месте поставил.Спасибо Владимир Саныч.