主题：取消动态加载的表

For Each dr As DataRow In DataTables("数据加载").DataRows
            Dim s As String = dr("数据库名")
            Dim s1 As String =dr("表名")
            Dim q As new OuterTableBuilder
            q.TableName = s1
            q.ConnectionName = s
            q.SelectString = "Select * From [" & s1 & "] "
            q.Build
        Next
用上段代码加载的表，如何当即取消加载，请予指点