甜老师，安全问题基本解决。密码文本人工给各个店铺，这样就算反编译了，里面也没有密码文本。代码如下：

BeforeConnectOuterDataSource 事件：

Dim ipFile As String = e.ProjectPath &  "ip.txt"
If e.Name = "VIP数据2" Then
    If Filesys.FileExists(ipFile) Then
        Dim Val2 As  String =  FileSys.ReadAllText(ipFile)
        Dim Val3 As String = DecryptText(Val2,"drw=","vEVg=") \'解密
        e.ConnectionString = Val3
    Else
        messagebox.Show("请联系IT部管理员","提示",MessageBoxButtons.Ok, MessageBoxIcon.Information)
        Syscmd.Project.Exit()
    End  If
End  If

现在有几个问题：

 Else
        messagebox.Show("请联系IT部管理员","提示",MessageBoxButtons.Ok, MessageBoxIcon.Information)
        Syscmd.Project.Exit()

假如密文不正确的话会弹出  

此主题相关图片如下：密文错误，要怎么设置提示，而不出现这个对话框.jpg


此主题相关图片如下：密文错误，要怎么设置提示，而不出现这个对话框2.jpg

要怎么设置messagebox，而不出现这个有foxtable版本的提示框呢

 在beforeOpenProject那里判断，不要放到 BeforeConnectOuterDataSource 事件

 http://www.foxtable.com/help/topics/1944.htm

 不显示错误信息，看这里

http://www.foxtable.com/help/topics/2655.htm

甜老师，这个没看懂。。。

我能不能设置 显示 详细信息 的框框不能打勾。如果可以的话，那就这样显示也没关系。。。或者要怎么做呢？那个帮助没看懂意思。。。

 项目属性->事件->BeforeShowErrorMessage

 在里面写代码，比如 e.Cancel = True