Public Function AccessFileType() As String
    Dim strDBProp As String
    Dim strType As String
    
    On Error Resume Next
    
    If CurrentProject.ProjectType = AcProjectType.acMDB Then
        strDBProp = CurrentDb.Properties("MDE").Value
        AccessFileType = IIf((Err.Number = 0) And (strDBProp = "T"), "MDE", "MDB")
    ElseIf CurrentProject.ProjectType = AcProjectType.acADP Then
        strDBProp = CurrentProject.Properties("MDE").Value
        AccessFileType = IIf((Err.Number = 0) And (strDBProp = "T"), "ADE", "ADP")
    Else
        strDBProp = CurrentProject.Properties("MDE").Value
        AccessFileType = IIf((Err.Number = 0) And (strDBProp = "T"), "Unknown - Compiled", "Unknown - Uncompiled")
    End If
End Function