Access - Saber tamaño de la BD desde código

Function GetDBSize() As String

    Dim fso As Object

    Dim size As Long

    Set fso = CreateObject("Scripting.FileSystemObject")

    'Obtiene el tamaño del archivo de la base de datos activa en bytes

    size = fso.GetFile(CurrentDb.Name).Size

    'Convierte el tamaño de bytes a kilobytes y lo devuelve como una cadena

    GetDBSize = Format(size / 1024, "0.00") & " KB"

    Set fso = Nothing

End Function