Public Function HasToBeRefreshed() As Boolean
Dim wrk As Workspace
Dim dbs As DataBase, cnt As Container
Dim doc As Document, prp As Property
Dim lngVersionOnServer As Long
Dim lngVersionOnC As Long

Const conPropertyNotFound =  3270     ' Property not found error.

On Error GoTo SetCustom_Err
    Set wrk = DBEngine.CreateWorkspace( "", " Admin ", "  ")
    
    Set dbs = wrk.OpenDatabase(" C:\MyDatabase.mdb ") 
    Set cnt = dbs.Containers!Databases  
    Set doc = cnt.Documents!UserDefined 
    Set prp = doc.Properties(" DB Version ")
    
    lngVersionOnC = prp.Value
    
    Set dbs = wrk.OpenDatabase(" \\Server\MyDatabase.mdb ") 
    Set cnt = dbs.Containers!Databases  
    Set doc = cnt.Documents!UserDefined 
    Set prp = doc.Properties(" DB Version ")
    
    lngVersionOnServer = prp.Value
    
    Set prp = Nothing
    Set doc = Nothing
    Set cnt = Nothing
    Set dbs = Nothing
    
    Set wrk = Nothing
    
    HasToBeRefreshed = (lngVersionOnServer > lngVersionOnC)

    Exit Function

SetCustom_Err:
    Beep
    If Err = conPropertyNotFound Then
        MsgBox " There is no information of the DB Version.", vbExclamation
    Else
        MsgBox Err.Number & vbCrLf & Err.Description
    End If
    
    HasToBeRefreshed = False
End Function