主题：求助 连接数据源的IP地址

其中，红色的ip是你原来数据源的ip地址，你服务器ip地址修改后，你要修改ip.txt文件，把ip修改成对应的ip地址。

e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip)

加入msgbox看弹出什么

Dim ipFile As String = e.ProjectPath & "ip.txt"

msgbox(ipfile)
If e.Name = "销售数据" Then
    If Filesys.FileExists(ipFile) Then

msgbox(e.ConnectionString)
        Dim ip As String = FileSys.ReadAllText(ipFile)
        e.ConnectionString = e.ConnectionString.Replace("119.119.120.120",ip)

msgbox(e.ConnectionString)
    End If
End If