try
Dim cmd1 As New SQLCommand
cmd1.ConnectionName= gs_strActiveConn
cmd1.CommandText= Vars("SQLchaxun")
Dim dt1 As DataTable = cmd1.ExecuteReader
tb.DataSource =dt1
catch ex As exception
MessageBox.Show(ex.message,"提示",MessageBoxButtons.OK,MessageBoxIcon.Error)
End Try

当SQL语句Vars("SQLchaxun") 有问题时，系统会自动 提示一个报错信息，然后 try扑捉到的错误信息也提示了，这样就提示两次了，且第一次的系统报错很不友好

如何关闭系统的报错功能，让程序按设计要求来报错，这样方便处理，给用户一个可控的感觉。

弹出错误的控制

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