主题：语法解法

代码如下：

'生成查询表

Dim dt As DataTable

Dim cmd As new SQLCommand

cmd.C

cmd.CommandText="select * f rom " & tb_ms & nm 

cmd.CommandTimeOut=100000

dt=cmd.ExecuteReader()

Tables("数据浏览器_table1").DataSource = dt

With Tables("数据浏览器_table1").DataTable

    .LoadTop = 1000

    .LoadPage = 0

    .Load()

End With