关于打开ACCESS?

fxtest

版主:

      我把下面的写在VB上打开会自动又会关闭ACCESS?

Dim oApp ' As Object

    On Error Resume Next
    Set oApp = CreateObject("Access.Application")
    Set objShell = CreateObject("Wscript.Shell")
    strPath = objShell.CurrentDirectory

    If oApp.Version = "11.0" Then
        oApp.AutomationSecurity = 1
    End If

  strPath =strPath & "\test.mdb"

    oApp.OpenCurrentDatabase strPath
    oApp.Visible = True
    Set oApp = Nothing