我在本站看到一个帖子说是可以用mdb做壳来启动另外一个数据库，但不是很明白怎么做，自己试着做也不行，请大家指教一下。

首先，我把这段代码做成了一个模块：

Function kq()
On Error GoTo kq_Err

  Set fs = Application.FileSearch ''查找文件
With fs
    .LookIn = "C:\Program Files\Microsoft Office\"  ''查找路径
    .SearchSubFolders = True  ''包含子文件夹
    .FileName = "msaccess.exe"  ''查找字串
  
    If .Execute() > 0 Then
     p = .FoundFiles(1)   ''ACCESS主程序完整路径
Shell p & " " & CurrentProject.Path & "\新物料管理.mdb /wrkgrp " & CurrentProject.Path & "\Security.mdw", 3

    Else
     MsgBox "C:\Program Files\Microsoft Office\　下没找到MSACCESS的程序文件，系统无法运行."
    End If
End With
DoCmd.Quit    ''退出外壳

kq_Exit:
    Exit Function

kq_Err:
    MsgBox Error$
    Resume kq_Exit

End Function
然后建了一个autoexec的宏启动它，但是一打开数据库就显示“你所输入的表达式中，使用了microsoft office access找不到的函数名称”，到底是什么地方出问题了呢？请大家指教。谢谢。