请教检测access的方法

guoya

我对vb几乎不通，编了一个程序，检测电脑中是否安装access xp,如果已经安装
直接拷贝安装access应用程序，如果尚未安装，提示安装access xp或运行时
程序经调试通过，但是效率很差，如果系统中未安装access,在运行Set AccessApp = CreateObject("Access.Application")语句时，系统题是错误信息，然后经过很长时间的反应，才显示exit_sub:内容，请问该程序应如何改进，提示的错误信息如何自定义。

Private Sub Form_Load()
Me.Hide'隐藏窗体
Dim AccessApp As Object

On Error GoTo exit_sub:
Set AccessApp = CreateObject("Access.Application")

If AccessApp.version >= 10# Then
     Shell App.Path & "\setup.exe"'运行安装程序
End If
Exit Sub

exit_sub:
   
    MsgBox "安装程序检测到系统没有安装ACCESS XP" & Chr(13) & _
        "即将安装ACCESS XP运行时,你也可以先退出,安装完ACCESS XP后再运行安装程序"
    Shell App.Path & "\runtime\setup.exe"'安装运行时程序
    Exit Sub
End Sub