检查是否安装了MS Access

Question

我正在寻找一种方法来检查是否安装了MS Access，然后它是否不是Exit Sub或完成运行模块的其余部分。我遇到了这段代码，但我不确定如何调整它以满足我的需求。

Function ApplicationIsAvailable(ApplicationClassName As String) As Boolean 
' returns True if the application is available 
' example: If Not ApplicationIsAvailable("Outlook.Application") Then Exit Sub     
Dim AnyApp As Object   
    On Error Resume Next   
    Set AnyApp = CreateObject(ApplicationClassName)   
    ApplicationIsAvailable = Not AnyApp Is Nothing   
    Set AnyApp = Nothing   
    On Error GoTo 0 
End Function

如果有人能够提供帮助，请提前感谢您。