主题：[求助]打包后的程序不能安装到虚拟机里吗？

'找到原来的共享数据库连接文件

Dim oldcs As String = e.ConnectionString

Dim a As Integer = oldcs.IndexOf("\\")

Dim b As String = oldcs.SubString(a)

Dim c As Integer = b.IndexOf(";")

Dim th As String = b.SubString(0,c)

MessageBox.Show(th)

Dim ipFile As String = e.ProjectPath & "Source.txt"  '在项目路径下设了一个文本文件用来存放用户自己设定的共享数据库文件

If e.Name = "AAAA" Then

    If Filesys.FileExists(ipFile) Then

        Dim IP As String = FileSys.ReadAllText(ipFile)

        If FileSys.FileExists(IP) Then

            e.ConnectionString = e.ConnectionString.Replace(th,ip)

            MessageBox.Show(e.ConnectionString)

        Else

            Messagebox.Show("指定共享数据库不存在!请联系系统管理员!","提示")

        End If

    End If

End If

在本机运行之后，会显示出正确的e.ConnectionString全部内容，但我发现在数据表－外部数据源－设置里的内容还是替换之前的e.ConnectionString内容。

是不是这个问题的影响？