用WinRAR制作自解压安装程序挺方便的，尤其是FB这种免安装的程序，但是遇到提取文件后运行程序的问题，如果将发布的项目文件.exe关联，能够自动启动，但是启动后连接数据库报错（用的是本地ACCESS数据源，感觉用ProjectPath获取的路径在自动启动时不一样），手动用桌面快捷方式启动又正常。

此主题相关图片如下：微信截图_20220820145825.png


此主题相关图片如下：微信截图_20220820145843.png

 
此主题相关图片如下：微信截图_20220820150537.png

有什么办法，将图一生成的快捷方式，在图二自动启动？

貌似图三能够用命令设置，这方面纯粹不懂，麻烦老师帮忙看一下。

项目BeforeConnectOuterDataSource事件全部代码：

Dim fl As String = ProjectPath & "data\\基础账套.mdb"
Dim fl2 As String = ProjectPath & "project\\data\\基础账套.mdb"
Dim Err As String
Dim s As String
If e.name = "Access数据源1" Then
    If FileSys.FileExists(fl) Then \'如果指定的文件存在
        s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fl & ";Persist Security Info=False;Jet OLEDB:Database Password=******"
    Else
        If FileSys.FileExists(fl2) Then \'如果指定的文件存在
            s = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & fl2 & ";Persist Security Info=False;Jet OLEDB:Database Password=******"
        Else
            Messagebox.Show("【基础账套】连接失败，请检查【" & fl & "】数据库文件是否存在？", "提示")
            Return
        End If
    End If
    If Connections.TryConnect(s, Err) = True Then
        e.ConnectionString = s
    Else
        MessageBox.Show("【基础账套】无法连通,原因:" & Err)
    End If 
End If

如果用自解压提取文后自动执行弹出以下错误信息：

此主题相关图片如下：微信截图_20220820152635.png

  ProjectPath 好像没有起作用？