主题：代码执行问题

Dim cmd As New SQLCommand
Dim dt As datatable
cmd.C
cmd.CommandText = "SELECT * From {通知表}"
dt = cmd.ExecuteReader()
For Each dt1 As datatable In DataTables
    If CurrentTable.datatable.Name = dt1.name Then
        StatusBar.Message3= dt.DataRows(0)("通知")
    End If
Next

上述代码在切换事件中不执行