Проверка существования базы по ссылке.

     If Dir("d:\MyDb\DataBase.mdb") <> "" Then
        MsgBox "Файл существует."
    Else
        MsgBox "Файл НЕ существует."
    End If

     If Len(Dir("d:\MyDb\DataBase.mdb")) <> 0 Then
        MsgBox "Файл существует."
    Else
        MsgBox "Файл НЕ существует."
    End If

Set pdb = CurrentDb()
    Set qd = pdb.Tabledefs
    
    Dim sdbpth As String
    Dim sdbhdr As String
    Dim scnntdbfllpth As String
    
    sdbpth = "\База\Основные фонды ЦЭПН_be.mdb"
    sdbhdr = "c:"
    If Len(Dir(sdbhdr + sdbpth)) <> 0 Then
       scnntdbfllpth = ";DATABASE=" + sdbhdr + sdbpth
        For Each A In qd
            If A.Connect = scnntdbfllpth Then
                A.Connect = scnntdbfllpth
                A.RefreshLink
            End If
        Next
    Else
        sdbhdr = "\\Федор"
        If Len(Dir(sdbhdr + sdbpth)) <> 0 Then
            scnntdbfllpth = ";DATABASE=" + sdbhdr + sdbpth
            For Each B In qd
                If B.Connect = scnntdbfllpth Then
                    B.Connect = scnntdbfllpth
                    B.RefreshLink
                End If
            Next
        Else
            MsgBox "Файл базы данных отсутствует. Возможно закрыт доступ. Обратитесь к администратору."
        End If
    End If