用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

试用成功