关于tuxedo流量控制的问题。如后台交易繁忙，然后前台就直接提示｜交易繁忙，请稍后再试｜

Private Sub daywaterlevel_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'创建一个内含连接信息的数据库链接对象
Dim myConnection As New SqlConnection
myConnection.ConnectionString = "Persist Security Info=False;Integrated Security=SSPI;database=cwfzx;server=yllsony;Connect Timeout=30 "

'定义一个报表对象
Dim myreportDoc As New ReportDocument

Dim myDBConncetionInfo As ConnectionInfo
Dim myTable As Table

'循环处理Tables集合中的每一个Table对象并设置登陆信息
For Each myTable In myReportDoc.Database.Tables
myDBConncetionInfo = myTable.LogOnInfo.ConnectionInfo()
With myDBConncetionInfo
.ServerName = "yllsony "
.databaseName = "cwfzx "
.UserId = "sa "
.Password = "636490 "
End With
Next

'定义一个sqldataAdapter类型的变量
Dim MyCommand As SqlDataAdapter
'创建数据集对象
Dim ds As DataSet = New dsDayWater

'创建一个SqlDataAdapter对象
MyCommand = New SqlDataAdapter( "select stcd,tm,z from tb_river_r ", myConnection)
'链接到数据库,提起数据,然后中断链接
MyCommand.Fill(ds, "tb_river_r ")

'载入报表
myReportDoc.Load(Application.StartupPath & "\crdaywater.rpt ")
'将数据集ds传递给报表对象
myReportDoc.SetDataSource(ds)
'绑定报表查看器控件
CrtViewerWater.ReportSource = myReportDoc
End Sub
运行时为什么老是出现 "F:\MyDoc\test\dayWaterLever\DayWaterLevel.vb(114): 未定义类型“ConnectionInfo”。

同问，如果楼主有答案希望能分享给小弟。