主题：如何让用户修改升级的路径（已解决）？

我明白楼主的意思.也可以让用户自己设置数据源路径:

项目属性BeforeConnectOuterDataSource

'将数据库文件"产品价格.mdb"路径置于tp.txt文件中
Dim ipFile As String = e.ProjectPath & "tp.txt"
If e.Name = "仓库管理" Then
    If Filesys.FileExists(ipFile) Then
        Dim tp As String = FileSys.ReadAllText(ipFile,Encoding.Default)
        e.ConnectionString = e.ConnectionString.Replace("\\服务器\鸿力数据库$\仓库管理20120213\",tp)
    End If
End If

如果数据源变了,就修改tp.txt文件