ฐานข้อมูลอยู่ที่เดียวกันก็ใช้แบบนี้ครับ

Private Sub cmdOpenDatabase_Click()
On Error GoTo Err_cmdOpenDatabase_Click
    
    'Use Shall
    Dim strAppName As String, strAppPath As String
    
    'Search for MSACCESS.EXE
    strAppPath = SysCmd(acSysCmdAccessDir) & "MSACCESS.EXE "
    
    strAppName = ap_AppDir & "db2.mdb"
    Call Shell(strAppPath & strAppName, 1)

Exit_cmdOpenDatabase_Click:
    Exit Sub

Err_cmdOpenDatabase_Click:
    MsgBox Err.Description
    Resume Exit_cmdOpenDatabase_Click
    
End Sub

ขอบคุณมากครับ

มีเพิ่มเติมนิดหนึ่งครับ
ถ้าเรา set database password ไว้ด้วย เราจะส่ง รหัสไปยังไงครับโดยที่ไม่ต้องให้ ผู้ใช้ต้องใส่
กลัวปัญหาว่าเกิดผู้ใช้ไปเปิด ตัว db2.mdb เองมันก็จะ run อัตโนมัติ ซึ่งไม่ต้องการ