主题：[求助]筛选

Dim cmd As New SQLCommand
Dim dt As DataTable 
cmd.ConnectionName ="筛选"
cmd.CommandText = "SELECT Top 100 * Fr-----om {股piao数据明细} ORDER BY Val(涨幅) DESC"
dt = cmd.ExecuteReader()
Tables("筛选_Table1").DataSource  =dt