עזרו לי בשגיאה בפתיחת קובץ באקסס

[שרגא הדר]

עזרו לי בשגיאה בפתיחת קובץ באקסס
(זה קרה אחרי שניסיתי להכניס את הקבצים ב'מזוודה' לגיבוי)
קודם מופיע שגיאה זה (מצורף צילו"מ)
אחרי לחיצה על אישור נפתח ויז'ואל בייסיק עם חלון ובו הטקטס כדלהלן

Option Compare Database
Option Explicit
Function UpdateLinkTables()
    Dim TDF As DAO.TableDef
    
    Dim sPath As String, sDBName As String, sTemp As String
    Dim locStart As Integer, locEnd As Integer, Loc As Integer
    Dim sConnect1 As String, sConnect2 As String
    sPath = GetAppPath
    For Each TDF In CurrentDb.TableDefs
        If Len(TDF.Connect) > 0 Then
            sTemp = TDF.Connect
            locStart = InStr(sTemp, "DATABASE=")
            sConnect1 = Left(sTemp, locStart + 8)
            sTemp = Mid(sTemp, locStart + 9)
            locEnd = InStr(locStart, sTemp, ";")
            If locEnd = 0 Then
                sConnect2 = ""
            Else
                sConnect2 = Mid(sTemp, locEnd)
                sTemp = Left(sTemp, locEnd - 1)
            End If
            Loc = InStrRev(sTemp, "\")
            sDBName = Mid(sTemp, Loc + 1)
            TDF.Connect = sConnect1 & sPath & sDBName & sConnect2
            TDF.RefreshLink
        End If
    Next
End Function

 

[moti_vb]

כנראה שהנתונים (הטבלאות) יושבים בקובץ נפרד
וצריך לקשר אותם מחדש לקובץ הזה
אולי משהו נדפק בכיווץ?