Public Sub OpenFileByAccApp()
    Dim accApp As Access.Application
    Dim strDatabase As String
    
    Set accApp = New Access.Application
    
    strDatabase = "E:\1\dbNew.mdb"
    
    With accApp
        .NewCurrentDatabase strDatabase
        .DoCmd.TransferDatabase acImport, "dBase IV", _
          "E:\1\", acTable, "Book.dbf", "tblNew", False
        .Visible = True
    End With
    
    Set accApp = Nothing
End Sub

    ' Dbf находится в папке E:\1\Book.dbf.
    
    Dim accApp As Access.Application
    Dim strDatabase As String
    
    Set accApp = New Access.Application
    
    strDatabase = "E:\1\Book.mdb"
    
    With accApp
        .NewCurrentDatabase strDatabase
        .DoCmd.TransferDatabase acLink, "dBase IV", _
          "E:\1\", acTable, "Book.dbf", "Book", False
        .Visible = True
    End With
    
    Set accApp = Nothing

    Call Shell("C:\Program Files\Microsoft Office\Office11\Msaccess.exe " _
      & "E:\1\Book.dbf", vbMaximizedFocus)