用VBA代碼打開非*.mdb擴展名的access數據庫

 第一種方法：
用Shell命令（calc.Mdb改名爲calc.txt）：
    Shell "msaccess c:/windows/desktop/calc.txt"

第二種方法：

也可以用Access.Application對象調用：
' 在模塊的聲明節中包含以下語句。
Dim appAccess As Access.Application
'(appAccess爲模塊級變量，詳見幫助裏OpenCurrentDatabase 方法示例)
    ' 將字符串初始化爲數據庫的路徑。
   

Private Sub Command0_Click()
    Dim strDB As String
    strDB = CurrentProject.Path & "/DB3.MDB"
    ' 創建 Microsoft Access 的實例。
    Set appAccess = _
        CreateObject("Access.Application")
    ' 在 Microsoft Access 窗口中打開數據庫。
    appAccess.OpenCurrentDatabase strDB
    appAccess.Visible = True
End Sub

試用成功