在编辑beforeconnectouterdatasource的时候，终于搞好了外部数据地址的ip设定。

运行正常。

Dim ipFile As String = e.ProjectPath & "ip.txt"
If e.name = "生产管理数据源" Then
    If Filesys.FileExists(ipFile) Then
        Dim ip As String = FileSys.ReadAllText(ipFile)
       e.C\\PCBupdate$\\fjmdb.mdb;Persist Security Info=False"
   Else
        MessageBox.Show("数据源指向指向文件[ip.txt]丢失,请恢复该文件后重新运行程序!", "提示")
         Syscmd.Project.Exit()
    End If
   
End If

然后删除ip.txt，程序按照设计的提示对话框"数据源指向指向文件[ip.txt]丢失,请恢复该文件后重新运行程序!"

恢复ip.txt，狗血了，提示找不到窗口，进去一查，所有的窗口都不见了！

无限郁闷中

！@#￥%……&×（）